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Editorial 


ESPECIAL 

Muchos de vosotros leereis este extraor- 
dinario de verano de INPUT fuera de vues- 
tro ambiente habitual, probablemente con 
un refresco en la mano y escuchando el aca- 
riciante sonido de las olas. 

Es por tanto logico encontrar unos conte- 
nidos que tambien son poco habituales. 

Aunque INP' IT no es una re vista de lis- 
tados, el interes que estos despiertan tal y 
como manifestos en vuestras cartas, y la 
buena acogida que, estamos seguros, les vais 
a dispensar, nos ha movido a incluir los lis- 
lados BASIC de un monton de programas, 
todos ellos seleccionados entre los que ha- 
beis enviado en forma de colaboracion. 

Ha sido una grata sorpresa comprobar la 
gran calidad y el alto nivel de muchos de 
ellos. 


VERANO 

Los concursos y los regalos no podi'an fal- 
tar en un numero como este. En las paginas 
centrales encontrareis los cupones corres- 
pondientes, con los que participareis en el 
sorteo de mas de 100 estupendos regalos, 
que solo esperan un ganador. Enviad los cu¬ 
pones que os interesen de las paginas cen¬ 
trales. jOjo con las fotocopias! Quedaran 
descartadas. 

Tambien hemos incluido algunos articulos 
del tipo habitual, para que la revista siga 
manteniendo su esencia. 

No os perdais tampoco la increible aven- 
tura de nuestro Compueomic; unas cuantas 
paginas con la literatura ideal de la hora de 
la siesta. 


LOS MEJORES DE INPUT 


Hemos pensado que es interesante disponer de un ranking que 
[ ponga en claro, mes a rrtes, cuales son los programas preferidos 
. de nuestros lectores. Para eilo, es obligado preguntaros directamen- 
I te y tener ass' ei mejor termometro para conocer vuestras preferen - 
| cias. Podeis votar por cualquier programa aunque no haya sido co- 
. mentado todavia en INPUT 


El resultado de las votaciones sera publicado en cada numero 

de INPUT. 

Entre los votantes sortearemos 10 cintas de los titulos que pidais 
en vuestros cupones. 

Nota: No es preciso que corteis ia revista, una copia hecha a 
maquina o una simple fotocopia sirven. 


Enviad vuestros votes a: LOS MEJORES DE INPUT Alberto Alcocer, 46 - 4. c B. 28016 Madrid 
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SONYCONVOCA EL 2° GRAN CONCURSO DE PROGRAMAS MSX. 




En la categoria de "Centres Docentes" 
se aceptaran todos los 

pe$aq$(^&peTQ que, por supuesto, no sean la mera 
copia de un libro odeun program a ya existente. 

Lo que se pretende es estimular la creatividad. 

En la segunda categoria, que denominamos 
"General", los programas que participen deberdn 
corresponder a uno de los cuatro temas siguientes: 

Quimica, Biologia, Ecologla, etc.). Se trata de 
crear un programa que simule un caso real 
o imaglnario. 

►^uSiqd-(creaci6a interpretacion, generador de 
sonidos y ritmos, etc.). 


SONY tendrd la propiedad de los programa s 
premiados. 

SONY tendrd los derechos de compra sobre el 
resto de los programas presentados. 

Los programas que concursen deberdn ser 
presentados grabados en crnta de audio SONY 
o diskette SONY OM-D3440, entregdndose dos 
copras. Asimismo se deberd adjuntar un listado 
del programa, instrucciones de funcionamiento y 
una sintesis del contenido del program a. 

Con cada programa se entregara un sobre 
ceirado contemendo los datos del autor o autores, 
y en el exterior Bgurard el tftulo correspondiente, 
Todos los concursantes, independientemente de 
su clasificacion .final, 


valorara la posibilidad de 

impresion en Plotter). 


L a { ec h a limitepara la reeepcion de los 
programas es elDebiendo 
ser entregados a SONY ESP ANA, SA, 
Departamento de Ordenadores MSX. Sabino de 
Arana42-44 08028 - Barcelona; TEL (93) 330.65.51. 


^ Los premios se repartiran tambien 
segun las categorias: 

Cate g oria Centos Docentes. 

- Un unico premio 

repartir entre el Centro Docente y el autor del 
programa. 500.000- Ptas, para cada uno. 

Cate g oria General 

- Un premio de 50Q.QCXV Ptas. para el que quede 
clasificado en primer lugar, 

- Dos premios de 300.000 - Ptas. para los que 
que den cla silica dos en segundo lugar. 

- Tres premios de 100.000 r - Ptas. para los que 

queden clasificados en tercer lugar. ^I 

Todos los premios seran en material SONY. 1 * 


Entre todos los programas recibidos, el 
jurado elegird los que, a su juicio, contengan un 
mayor nivel de innovacion y creatividad. 

El fallo sera publico el 

fliflKHiH MliWY yPublicado 

en la prensa nacional. 
Para mayor iniormacion o 
consulta, dirijase a 
4k cualquiera de 

IMp tm III bs Delegaciones SONY. 

il& mwM v II ORDENADORES 


Los programas presentados por los 
Centros Docentes deberdn tener un maximo de 

28K.RAM. 

Los programas presentados por particulares para 
la Categoria General deberdn tener un maximo 
de 12 K.RAM. 


DELEGACIONES SONY ESP AN A, S.A. 

MADRID BILBAO SEVILLA VALENCIA 

Julian Ramea, S Pintot Lecuona, 1 Kiebia, 3 Salvador Fenandis Luna, 6 

Tel. (91) 253 08 00 Tel, (94) 444 42 00 Tel (954) 27 47 07 Tel. (96) 325 35 06 

23003 MADRID 48012 BILBAO 41011 SEVILLA 46018 VALENCIA 


BARCELONA 

Sabino de Arena, 42-44 
Tel. (93) 330 65 51 
08020 BARCELONA 


LA CORUHA 

Avda. £j£rcito, 23 
Tel (981) 29 98 55 
!5QQ6 LA CORUNA 




Se ha abierto ya la convocatorla del 2° Gran Concurso de Programas MSX. Hay dos categorias 
de participacion: Una, para Centios Docentes; otra para particulares y publico en general. 
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ORDENA 
TUS GASTOS 


1_ _LAS O PCIONES DEL MENU 

■ INTRQDUCIENDO DATOS EN 

■ _ LOS REGISTROS 

■ 1_COMPROBACION DE L BALANCE 
§ ALMACENA TUS FIN ANZAS 


Igual que otras maquinas comereia- 
les* lu ordenador es capaz de almace- 
nar y calcular informacion financiera* 
Aqui te presentamos un sencillo pro¬ 
grams que te permitira realizar un se- 
guimiento de tus ingresos y gastos. 

El seguimiento de los gastos de la 
familia, averiguar «adonde se va el di- 
nero» es un problems que le resukara 
muy famitiar a mucha gente. 

Este programa para cuentas caseras 
esta disenado para proporcionarfe las 
respuestas. 

Para actualizar tus cuentas, tienes 
que «aiimentarto» una vez al mes o 
cada vez que dispongas de tiempo 
para ello, con los detalles de tus ingre- 
sos (por ejemplo contenidos en las fac- 
turas o recibos) y tus gastos, (sacados 
de la rnatriz del talonario de cheques 
o de los resguardos bancarios)* En el 
momenta en que quieras el programa 
te dara un analisis de la forma en que 
se ha gastado tu dinero y de la com- 
paracidn de tus ingresos y gastos du¬ 
rante el ano. 

Se trata de un programa bastante 
largo, Pero en cuanto lo hayas teclea- 
do una vez y aimacenado en cintas o 
disco servira para siempre, o al menos 
mientras dure el soporte magnetico. 

El programa dedica una columna 
para los ingresos y siete para los gas¬ 
tos, con diferentes encabezamientos. 
Naturalmente estas tiltimas subdivisio- 
nes se pueden variar para que se adap- 
ten a tus necesidades; para ello no tie¬ 
nes mis que modificar las palabras 
que figuran en las sentences DATA 
del programa cuando lo introduzcas. 
No obstante, debes conservar en su 
sitio la columna de ingresos y debes 
tener ocho «columnas» juntas o en 
caso contrario el programa no funcio- 
nara, 

El programa ha de ser aimacenado 
en dos secciones: en primer lugar el 
programa propiamente dicho, y en se- 


gundo lugar toda la informacion intro- 
ducida en la ultima sesidn de actuali- 
zacidn. Esto significa que necesitas 
dos nombres de programa* uno para 
cada una de las dos partes, 

Para almacenar el programa propia¬ 
mente dicho no tienes mis que seguir 
el procedimiento de almacenamiemo 
habitual, tal como aparece en el ma¬ 
nual de tu maquina. 

Para volver a cargar otra vez el pro¬ 
grama, sigue el procedimiento usual 
de earga de juegos o de tus propios 
programas* 

Mis adelante veremos instrucciones 
para almacenar y cargar los valores de 
las sentencias DATA. 

Al ejecutar el programa, el menu 
principal te presentara siete opciones; 

1 Hacer una entrada 

2 Visualizar las entradas 

3 Almacenar en cinta 

4 Cargar desde cinta 

5 Impresora si/no 

6 Modificar una entrada 

7 Salir del programa 


ENTRADAS DE DATOS 


Para hacer una entrada de dates, 
elige 1 en el menu principal. 

El ordenador te preguntara que cla- 
se de informacion quieres introducir: 
Fecha, Articulo, Cantidad y Categoria 
(la categoria ya la has eiegido e intro- 
ducido en la sentencia DATA). 

Teclea ia informacion en el orden 
anterior. 

Cuando hayas completado tus en¬ 
tradas, espera que el ordenador te 
pida una nueva fecha, Asi regresaras 
al menu principal. 


VISUALIZACION DE ENTRADAS 


Para ver una entrada o una serie de 
entradas de dates, pulsa ia tecla 2 uni- 



camente, cuando aparezea el menu 
principal. 

El ordenador presentara una tabla 
con las diversas categories: siete de 
gastos y una de ingresos, Para elegir 
una categoria pulsa el numero apro- 
piado y el ordenador listara todos los 
articulos que tiene en esa categoria 
con el total hasta la ultima fecha. 

Cuando hayas terminado, vuelve al 
menu principal. 

Si eliges la opcion 8* no solo tendras 
un valor total de la renta, sino tarri- 
bien el total de todas las clases de gas¬ 
tos, ademas de tu balance de ingresos 
y gastos (o al reves). 


MODIFICACION DE UNA 

ENTRADA 

«- 


Cuando pulsas la opcion 6 para al- 
terar una entrada el ordenador pre¬ 
sentara una lista de todas las entradas 


e INPUT 




















































que has realizado, independientemen- 
te de su categoria. 

Puedes moverte hacia adelante o 
atras por la lista utilizando los indica- 
dores que aparecen en la pantalla. El 
ordenador tambien te dira como tie- 
nes que editar la entrada. 

Despues de la modificacion, el or¬ 
denador volvera automaticamente al 
menu principal. Si quieres hacer una 
nueva modificacion, tienes que selec- 
cionar de nuevo la opcion 6. 


OPCION DE 1MPRESORA 


El comando de opcion de impreso- 
ra es de utilizacion tan sencilla como 
una Have de la luz. Esta esta encendi- 
da o esta apagada. 

AI seleccionar la opcion 5 en el 
menu principal, el ordenador te dira 
que pulses S si quieres utilizar la im- 
presora y N si no quieres hacerlo, Si 


pulsas S, regresaras al menu principal 
y a partir de ahora (hasta que vuelvas 
a seleccionar la opcion 5 y desactives 
de nuevo fa tmpresora) toda la infor¬ 
macion que aparecena normalmenie 
en pantalla al utilizar la opcion 2 sal- 
dra por impresora. 

Tienes que se muy cuidadoso de no 
pulsar S si no tienes la impresora co- 
nectada ya que podrfa ser que perdie- 
ras toda la informacion que llevcs in- 
troducida hasta ese momento, 


CARGA Y ALMACENAMIENTO 


La segunda fase de la carga y alma- 
cenamiento es como sigue: 

Para almacenar los dates financie- 
ros que has introducido, pulsa la op¬ 
cion 3. A continuacidn debes teclear 
un nombre de fichero por ejemplo 
«DINERG», Seguidamente grabalo 
en el cassette o unidad de disco, Cuan- 
do los dates hayan sido aimacenados 
volveras al menu principal donde pue¬ 
des pulsar la opcion 7 para salir del 
programs, 

Para cargar la informacion que te- 
nias previamente almacenada, pulsa la 
opcion 4 del menu principal Teclea 
ahora el nombre de tu fichero, Cuan- 
do el programa termine de cargarse el 
ordenador regresara de nuevo al menu 
principal. 


Tectea 


para Spectrum 


50 LET MN=200: IF PEEK 23733 
=127 THEN LET MN=100 


100 

DIM 

C$(8,16): DIM 

ACMN) : 


DIM 

A$(MN,23) 


110 

LET 

U=0: LET V=1 


120 

FOR 

N=V TO 8: READ 

C$CN) 


:NEXT N 


130 

POKE 

23658,8 


140 

LET 

K$='"': FOR N=V 

TO 7: 


LET 

K$=K$+CHR$ 8: 

NEXT N 

190 

LET 

P=2: LET TT=U: 

LET 


CR=U 



200 

CLS 

: PRINT BRIGHT V; 


PAPER 2; INK 6;AT 

2,11; 


"[2*ESPACI03M ENO 
C2*ESPACIO0" 

210 PRINT BRIGHT V; PAPER 7 
;AT 5,6;" 1 INTRODUCIR 


DAT0SE2*ESPACI0DAT 7,6 
2:- VISUALIZAR DATOS 
C2*ESPACI0lAT 9,6;” 3: 

- ALMACENAR EN CINTA 
C2*ESPACI0]AT 11,6;” 4 
CARGAR DESDE CINTA 
C2*ESPACI0]";AT 13,6;" 5 
IMPRES0RAC3*ESPACI0]” 

;AT 15,6;” 6s- CAMBIAR 
DATOSC2*ESPACI0U”;AT 17, 
6;” 7:- SALIR DEL 
PR0GRAMAC2*ESPACI0]” 

220 PRINT INK 3; FLASH V; 
BRIGHT V;AT 20,6;” - 
SELECCIONA OPCION. - ” 

230 IF INKEY$="" THEN GO TO 
230 

240 LET Z$=INKEY$: IF Z$< ,, 1 , ‘ 
OR Z$>”7” THEN GO TO 230 
250 CLS : GO SUB 1000*VAL Z$ 
260 GO TO 200 
1000 LET C=U 

1005 LET C=C+V: IF C=MN+V 
THEN RETURN 

1006 IF A$(C,V)=” ” THEN GO 
TO 1010 

1007 GO TO 1005 

1010 PRINT AT U,U; BRIGHT V; 
PAPER 2; INK 7;'*t2* 
ESPACI0]FECHAC2*ESPACIO0 
CONCEPTO[3*ESPACIOU 
CANTIDAD CAT"1015 IF 
C=MN+V THEN RETURN 
1020 INPUT "INTRODUCE FECHA " 

; LINE A$(C,2 TO 9): IF 
A$(C,2)=" ” THEN RETURN 
1030 PRINT TAB U;AS(C,2 TO 9); 
1040 INPUT "INTRODUCE 

C0NCEPT0 ”; LINE A$(C,10 
TO 23): IF ASCC,10) = " " 
THEN 60 TO 1040 
1050 PRINT TAB 9;AS(C,10 TO 
21 ); 

1060 INPUT "CANTIDAD ”;ACC): 

IF A(C)=U THEN GO TO 
1060 

1070 LET W=A(C): LET V$=STR$ 

U: PRINT TAB 25-LEN V$+ 

3;AC C); 

1080 INPUT "CATEGORIA "; 

LINE F$; IF F$=" M THEN 
GO TO 1080 

1090 FOR N=V TO 8: IF F$=C$( 
N,V TO LEN F$> THEN GO 
TO 1130 


INPUT 7 
































1100 NEXT N: GO TO 1C80 
1130 IF N=8 THEN LET CR=CR+A 
CO 

1140 IF NOS THEN LET T7=TT 
+ ACO 

1150 PRINT TAB 29;C$(N,V TO 
3) 

1160 LET A$CC,V)=CHRS C48+N) 
1200 LET :=C+V; GO TO 1015 
2000 FOR N=V TO 8; PRINT 

PAPER V; INK 7; AT N*2,6 
";N;";C$CN): 

NEXT N 

2010 PRINT FLASH V; INK 2;AT 
19/3; N SELECCIONA 
CATEG0RIAC1-8) ,[ 

2020 IF INKEY$=“" THEN GC TO 

2020 

2030 LET Z$=INKEY$: IF Z$<"1 
" OR Z$>”8" THEN GO TO 
2020 

2040 LET T=U: LET C=U 
2050 CLS : PRINT UP ; PAPER 6; 
BRIGHT V;TAB 10;C$(VAL 
ZS) ;TAB 31;" " 

2055 LET C=C+V; IF C=MN THEN 
GO TO 2500 

2060 IF A$(C,V)=" " THEN GO 
TO 2500 

2070 IF A$(C,V)OZ$ THEN GO 
TO 2055 

2080 PRINT #P;A$CC,2 TO 9); 

TAB 10;A$CC,10 TO 23); 
2090 LET AM= A(C>:LET NS=STR$ 
AM: PRINT #P;TAB 31-LEN 
NS; AC C) 

2100 LET T=T+ACC) 

2110 GO TO 2055 

2500 PRINT #P;TAB 24;"- 

LET TX=T: LET N$= 
STR$ TX: PRINT #P;TAB 
12;"T0TAL:- ";TAB 31- 
LEN N$;T 

2510 IF Z$<>"8" THEN GO TO 
2590 

2520 LET TZ=TT: LET N$=STRS 
TZ: PRINT 1 UP ;"TOTAL DE 
GASTOS:- ";TAB 29;K$; 

TAB 31-LEM N$;TT 
2530 LET BA=T“TT: LET N$= 

STR$ BA: PRINT ’frP;TAB 
10;"BALANCE:- ";TAB 29; 
K$;TAB 31-LEN N$;BA 
2590 PRINT PAPER 2; INK 7’ 
"PULSA UNA TECLA PARA 


SEGUIR" 

2600 PAUSE U: IF PEEK 23560= 
13 THEN RETURN 
2610 CLS : GO TO 2000 
3000 GO SUB 8000: IF RE=V 
THEM RETURN 

3010 PRINT PAPER 6;AT 10,U; 
"03*ESPACICJ NO FIBRE DEL 
FICHEPO?C3*ESPACI03": 
INPUT LINE W$: IF LEN 
W$>10 CR LEN W$<V THEN 
GO TO 301C 

3020 CLS : SAVE W$ DATA AO: 
SAVE WS DATA A$(): 

RETURN 

4000 GO SUB 8000: IF RE=V 
THEN RETURN 

401C PRINT BRIGHT V;AT 10/U; 
"NOMBRE DEL FICHERO A 
CARGAR?": INPUT LINE W$ 

; IF LEN W$>10 THEN GO 
TO 4010 

4020 PRINT PAPER 3; INK 7;AT 
10/U;"INSERTA CASETTE Y 
PULSA PLAY " 

4030 LOAD WS DATA AO: LOAD 
W$ DATA A$() 

4040 LET CR=U: LET TT=U; FOR 
N=V TO MN: IF A$CN/V)= 
"8" THEN LET CR=CR+ACN) 
4050 IF ASCN/1)<>"8" THEN LET 
TT=TT+ACN) 

4060 NEXT N: RETURN 

5000 PRINT BRIGHT V;AT 10/U; 

" VOLCADO DE IMPRESORA 
S/N? " 

501C PAUSE U: IF INKEY$="" 
THEN GO TO 5Q10 
5020 LET Z$=INKEY$ 

5030 IF Z$="N' : THEN LET P=2: 
RETURN 

504Q IF Z$="S'' THEN LET P=3: 
RETURN 

5050 GO TC 5010 

6000 LET C=V: IF ACC)=U THEN 
RETURN 

6010 PRINT AT U/U; BRIGHT V; 
PAPER CVAL A$CC,V))-V; 
INK 9;" NUMERO J, ;C,C$C 
VAL A$(C,V)) 

6015 PRINT PAPER 2; INK 7;" 
"FECHA[3*ESPACIO0 CON 
CEPTOL5*ESPACICOCANTIDAD 
C3*ESPACI0]": PRINT 'AS 
CC/2 TO 9);TAB 10;A$(C, 


RFSUflE* SITUflCrON Flf 


No hay fondos 
Md bay I iqttidez 
No hay reservas 


m HAS HECHOH 


KEYSTONE 



A L 


4 


t. 


1C TO 23); 

6020 LET AM=A<0*100: LET N$ 
=STRS AM: PRINT TAB 29; 
K$;TAB 31-LEN N$;ACO 

6030 PRINT PAPER 3; INK 7;AT 
20,U;" A - ADELAN7AR 
[3*ESPACI03Q - 
RETR0CEDERL5*ESPACI0] 
EDIT PARA CAMBIAR 
RE61STR0C2*ESPACI03" 

6040 PAUSE U 

6050 IF INKEY$="Q'' AND OV 
THEN LET C=C-V: GO TO 
6010 

6060 IF INKEY$="A" AND COHN 
THEN LET C=C+V 

6070 IF A(C)=U THEN LET C= 
C-V 

6080 IF PEEK 23560=7 THEN GO 
TO 6100 

6090 GO TO 601C 

6100 INPUT BRIGHT V;"INTRO 

DUCE NUEVA FECHA ";LINE 


8 INPUT 



































A$<C,2 TO 9):IF A$(C,2) 
=" " THEN GO TO 6100 

6110 PRINT AT 5,U;A$(C,2 TO 
9) 

6120 INPUT BRIGHT V;"INTRODU 
CE NUEVO CONCEPTO 
LINE ASCC,10 TO 23): IF 
A$(C,10> = " " THEN 60 TO 
6120 

6130 PRINT AT 5,10;A$(C,10 
TO 23)6135 IF A$(C,V>= 
"8" THEN LET CR=CR-A(C) 

6136 IF A$(C,V><>"8" THEN 
LET TT=TT-A(C) 

6140 INPUT BRIGHT V;"INTRO 
DUCE NUEVA CANTIDAD 
ACC): IF ACC)=U THEN GO 
TO 6140 

6150 LET AN=A(0*100: LET N$ 
=STR$ AM: PRINT AT 5,29 
;K$;TAB 31-LEN N$ 

;A(C) 

6160 INPUT BRIGHT V;"INTRODU 
CE NUEVA CATEGORIA 


LINE F$: IF F$= IM ' THEN 
GO TO 6160 

6170 FOR N=V TO 8: IF F$=C$ 

(N,V TO LEN F$) THEN GO 
TO 6190 

6180 NEXT N: GO TO 6160 
6190 LET A$(C,V)=CHRS (48+N) 
6200 IF N=8 THEN LET CR=CR+ 
A(C) 

6210 IF N<8 THEN LET TT=TT+A 
7000 GO SUB 8000: IF RE=V 
THEN RETURN 
7010 RANDOMIZE USR U 
8000 PRINT PAPER 4;AT 10,9; ' 
" ESTAS SEGURO? " 

8010 PAUSE U: LET RE=U: IF 
INKEYSCV'S" THEN LET 
RE=V 

8020 RETURN 

9000 DATA "HOGAR'V'DIVER 

S ION ES’V'AR REND AMI ENTQ" 
,"ROPA", ,I COCHE' , ,''VACA 
CIONES l, , , 'VARIOS M , 
"INGRESOS" 


Si se te hare diliril encontrar [\PIT 
en tu kiosro habitual, 
reservalo por adelantado, o haznoslo saber 
para que podamos remediario 



£L ZOCO INPUT 


Envia tu mensaje a: 


INPUT SINCLA/R-ZOCO 
c./ Alberto Alcocer, 46 

28016 MADRID 


Todo se cornpra y se vende. Los antiguos zocos fueron 
fugares destinados a todo tipo de transacciones. INPUT 
tambien tiene el suyo. Vuestras operaciones de compra, 
cambio o venta seran pubficadas en esta section, pera dos 
son las limitationes que imponemos: 

a) La propuesta tendra que ver con la microinformatica. 

b) Nos reservamos el derecho de no pub Hear aquelfos 
insertos de los que se sospeche un trasfondo lucrativo. 

Ahora un ruego. Tratar de resumir a! maximo e / texto; 
escribir casi como un tefegrama siendo cfaros y contisos. 
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SOLIDOS 
OE REVOLUCION 


DIBUJOS TRID IM ENSIONA^ ES 
CREAND O ALGUNAS FORMAS 
_DIBUJODE SILUETAS 

GRAFICOS FAGINADOS 
FUNC10NAMIENT0 


Te presentamos aqui una sencilla 
tecnica que te permitira hacer girar 
una silueta hasta formar tin sol id o tri¬ 
dimensional. Puedes utilizarla para di* 
senar lo que quieras, desde un juego de 
copas de code! hasta un sombrero. 


El dibujo de objetos simetricos, es- 
peeialmente en tres dimensiones, es 
normalmente muy diffcil, Pero con un 
ordenador se puede conseguir que re- 
suite bastante sencillo. Con el progra¬ 
ms que veremos mas adelante, lo uni- 
co que tendras que hacer es dibujar el 
contorno de uno de los tados de la for¬ 
ma y el ordenador se ocupara de ha¬ 
cer el res to, Henan do el contorno has¬ 
ta crear un objeto con un entramado 
de alambres y apariencia de solido. 

El programa funciona efectuando 
un giro del contorno original alrede- 
dor de un eje central, En consecuen- 
cia puedes generar cualquier cosa que 
tenga una section recta circular, tal 
como un florero, un jarron, un vaso, 
un candelero, una campana, un som¬ 
brero, una manzana, una naranja y 
otras mil cosas mas. Debido a que el 
programa efectua una rotation del 
contorno original, la forma sblida pro- 
ducida se llama sblido de rotation o 
de revolution, El programa te permi- 
te ademas visualizar el objeto desde 




cualquier angulo e introduce algo de 
animation en la imagen, haciendo que 
el objeto gire alrededor de su eje. 


DIBUJO DE LA FORMA 


Es muy facil dibujar el contorno de 
la forma que quieres crear; el progra¬ 
ma utiliza para ello ia teeniea de la 
ban da de caucho, en la que puedes es- 
tirar y mover una linea hasta que es- 
tes satisfecho con la posicion que 
adopta. La banda de caucho te permi- 
te un control interactivo sobre la for¬ 


ma que estas dibujando, pudiendo 
apreciar a simple vista cuando esta 
cada tinea en su posicion correcta. 

Puedes dibujar hasta 20 Ifneas en el 
contorno. Normalmente esto resulta 
mas que sufieiente y casi todos los con- 
tornos pueden dibujarse con una me¬ 
dia docena de Ifneas. No obstante las 
curvas del contorno tienen que for- 
marse a partir de una serie de trarnos 
cortos de rectas lo que requerira mas 
Ifneas que un simple contorno angu¬ 
lar. 


EL PUNTO DE VISTA 


El programa tambien te permite 
ejercer control sobre la direction des¬ 
de la cual se mira ai objeto, no solo 
desde arriba, abajo o de frentc, sino 
tambien desde cualquier otro punto, 
siempre que puedas especificar el an¬ 
gulo exacto de vista (un angulo de 
unos 70 grados te permitira una bue- 
na vista desde arriba, como si el obje¬ 
to estuviera colocado encima de una 
mesa), En cualquier momento puedes 
modiftcar este angulo, encargandose 
el programa de volver a dibujar el so- 
lido de revolution con la nueva orien¬ 
tation. 

El programa almacena las coorde- 
nadas de todas ias Ifneas. Cuando ha- 
yas terminado de dibujarias, va to¬ 
man do cada linea y la hace girar en 
torno al punto central en pasos de 18 
grados, con un total de 20 pasos para 
todo el cfrculo complete. Tambien se 
toma en cuenta el anguio del punto de 
vista, con lo que el cfrculo aparece 
cada vez mas aplastado a medida que 
el punto de vista va estando mas bajo. 
En las fotos puedes ver el efecto final 
resultante sobre la pantalla. 

Cuando el programa termina de di¬ 
bujar la primera vista, se queda espe- 
rando. Si pulsas la barra espaciadora, 
puedes elegir la presentation del mis- 
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vc cl cursor para manipular la linea de 
la «banda de caucho* sobre la panta- 
lla. Cuando estes satisfecho con la po¬ 
sition alcanzada y quieras «fijaria» en 
su sitio, tienes que pulsar otra tecla. 
Continua con este mismo proceso, 
movie n do y estirando la ban da de cau- 
cho y fijando llneas. hasta const ruir 
todo el perfil. 

Para mover el cursor, tienes que uti- 
lizar las teclas de cursor, M para 
marcar la position de partida y RE¬ 
TURN para «fijar» cada nueva sec- 
cion del perfil. Cuando el dibujo ya 
este completo, pulsa Q para pasar a 
la siguiente pagina, la ejecucion del 
programa. 

A1 dibujar las formas puedes acele- 
rar el movimiento del cursor pulsando 
ai mismo tiempo la tecla de CAPS 
SHIFT 


ENTERCl 2*ESPACI0J" 1 " 
AJUSTAR EL CUSRS0R=M 
C12*ESPACI0DACABAR=Q 
C24*ESPACI03" 

70 INPUT "ANGULO DE VISTAfO- 
180)? I: IFKO OR I>180 
THEN GO TO 70 

80 PLOT 60,100; DRAW 135,0: 
DRAW 0,-49: DRAW -135,0: 
DRAW 0,49 

90 LET IS=SIN(I/180*3.14159) 

100 LET BF=0: LET A$= ,,M 
110 LET X=128: LET Y=51 
120 LET XX=X: LET YY=Y 

130 OVER 1 

140 PLOT X,Y: DRAW XX-X,YY-Y 
150 PLOT X,Y; DRAW XX-X,YY-Y 

160 LET Z$=INKEY$: IF Z$=" N 
THEN GO TO 140 
170 LET Z=C0DE 2$ 


mo objeto visto bajo un angulo dife- 
rente. 


ANADELE UN POCO DE GIRO 


Puedes observar como gira el obje¬ 
to, tecleando una cualquiera de las 
otras teclas. Para hacer que el objeto 
gire, el programa almacena primera- 
mente en memoria la imagen, para lo 
cual utiliza tecnicas de graficos pagi- 
nados. A continuation se dibuja de 
nuevo el solldo de una forma ligera- 
mente diferente, como si hubiera sido 
girado unos cuantos grados. Esta pa¬ 
gina se almacena de nuevo y el proce- 
dimiento se repite varias veces. Des¬ 
pues de que todas las paginas han sido 
dibujadas y almacenadas en memoria, 
se vuelven a llamar de nuevo y se re- 
presentan otra vez, una tras otra, ha- 
ciendo que el objeto tenga la aparien- 
cia de estar girando. 


USO DEL PROGRAMA 


Teclea el programa y prueba a di¬ 
bujar algunas formas. El procedimien- 
to para dibujar consiste en desplazar 
el cursor al sitio en que quieres co- 
menzar una linea y a continuacidn pul¬ 
sar la tecla apropiada para marcar el 
punto de partida. Seguidamente, mue- 



3 


para Spectrum 


10 PRINT AT 0,10; INK 2; 
PAPER 5;"R0TACI0N EN 3-D" 
: PAUSE 100 

30 CLEAR 30000: PAPER 0; INK 
5; CLS : POKE 23658,0 
40 GO SUB 2000: BORDER 0 
50 PRINT AT 0,0; PAPER 6; 

INK 0;"MOVER LA IINEA=TE 
CLAS DE CURSOR CAPS SHIFT 
PARA IR MAS RAPID0 
C3*ESPACI0]" 

60 PRINT : PRINT PAPER 6; 
INK 0;"FIJ AR LA LINEA= 


180 IF Z=13 THEN GO SUB 500 

190 IF Z=113 THEN GO SUB 600 

195 IF Z=109 AND BF<>1 THEN 
PLOT 255-X,Y: LET Y=YY: 
LET X=XX: LET BF=1 

200 IF Z=53 AND XX>128 THEN 
LET XX=XX-1 

210 IF Z=8 AND XX>130 THEN 
LET XX=XX-2 

220 IF Z=55 AND YY<100 THEN 
LET YY=YY+1 

230 IF Z=11 AND YY=98 THEN 
LET YY=YY+2 

240 IF Z=56 AND XX<195 THEN 
LET XX=XX+1 
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670 GO SUB 1600 
680 CLS 
690 NEXT A 

700 PRINT AT 20,11; PAPER 7; 

INK 1IMAGEN: 

710 FOR A=128 TO 240 STEP 16 
720 POKE 30114,A: RANDOMIZE 
USR 30112 

730 PRINT AT 20,19;A/16-7 
740 NEXT A: GO TO 710 
1000 FOR B=1 TO LENA$ STEP 2 
1010 LET X=CODE A$(B) 

1020 LET Y=CODE A$(B+1) 

1030 GO SUB 1500 
1040 NEXT B 
1050 RETURN 

1500 FOR C=0 TO 399 STEP 20 
1510 LET D=C+(2.25*A): LET 


PEEK 23678 

1560 IF B=1 AND BF=1 THEN 
GO TO 1580 

1565 IF B=1 THEN PLOT 128, 
90: DRAW XD~128,YD“90: 
GO TO 1580 

1570 PLOT A(1+C/2Q,1) ,AC1 + C/ 
20,2): DRAW XD-AC1+C/20 
,1),YD-A(1+C/20,2) 

1580 LET A(1 + C/20,1) = XD 
1585 LET A(1 + C/20,2)=YD 
1590 RETURN 

1600 POKE 30102,128+A*16 

1610 RANDOMIZE USR 30100 

1620 RETURN 

2000 RESTORE 2050 

2010 FOR A=0 TO 23 

2020 READ B: POKE A+3010Q,B 


250 IF Z=9 AND XX<194 THEN 
LET XX=XX+2 

260 IF Z=54 AND YY>52 THEN 
LET YY=YY-1 

270 IF Z=10 AND YY>51 THEN 
LET YY=YY-2 
280 GO TO 140 

500 OVER 0: PLOT X,Y: DRAW 
XX~X,YY-Y 

510 PLOT 255-X,Y: DRAW X-XX, 
YY-Y 

520 LET X=XX: LET Y=YY: LET 
A$=A$+CHR$ (X-128)+CHR$ 
(Y-51): OVER 1: RETURN 
600 INK 7: CLS : OVER 0: DIM 
A<20,2) 

610 FOR A=0 TO 7 
620 PRINT AT 21,3; PAPER 2; 
BRIGHT 1;"TRAZAND0 LA 
FIGURA ";A+1; f ' DE 8" 

630 GO SUB 1000 
640 IF AOO THEN GO TO 670 
650 PRINT AT 20,0; INVERSE 1 
;"ESPACIO PARA CAMBIAR 
EL ANGULOC2*ESPACIOD" 
C2*ESPACI030TRA TECLA PA 
RA C0NTINUAR[4*ESPACI03 , ‘ 
660 LET X$=INKEY$; IF X$="" 
THEN GO TO 650 
662 IF X$<>" "THEN GO TO 670 
664 INPUT "ESCRIBE NUEVO AN 
GULO(0-180)";I 
666 IF I<0 OR I>180 THEN GO 
TO 662 

668 CLS : LET IS=SIN (1/180* 
PI): GO TO 620 


PY=IS*Y 

1515 IF D>360 THEN LET D=D- 
360 

1520 GO SUB 1530: NEXT C 
1525 DRAW BX-XD,BY-YD:RETURN 
1530 LET YD=SIN (D/180*PI)*X 
*COS (I/180*PI) 

1532 LET XD=C0S (D/180*PI)*X 
1535 LET XD=128+XD: LET YD= 
90+YD+PY 

1540 IF C=0 THEN PLOT XD,YD: 

LET BX=XD: LET BY=YD 
1550 DRAW XD-PEEK 23677,YD- 


2030 NEXT A 
2040 RETURN 

2050 DATA 17,0,0,33,0,64,1,0 
,16,237,176,201 
2060 DATA 33,0,0,17,0,64,1,0 
,16,237,176,201 


FUNCiONAMIENTO 


La parte mas importante del pro- 
grama son las rutinas que te permiten 
dibujar el contorno, crear el sdlido y 
hacer que este se ponga a girar. 
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INTRODUCCION DEL PERFIL 


La rutina de la banda de caucho co- 
mienza en la Ifnea 140, Fundamental- 
mente esta rutina se ocupa de compro- 
bar que teclas han sido pulsadas y de 
actualizar las coordenadas de la Ifnea 
estirada, El dibujo real de la Ifnea se 
hace por medio de la rutina de la If¬ 
nea 500, que tambien se ocupa de di- 
bujar la imagen especular de dicha If¬ 
nea. 

Cuando una Ifnea es fijada, se al- 
macenan las coordenadas de su extre¬ 
me. Antes que nada, se resta un nu- 
mero de cada coordenada para tener 
un punto medido con relation a la If¬ 
nea central- A continuation se cargan 
dichos numeros en una cadena de ca- 
racteres que se afiade al extreme de 
a$. 

Con la rutina de la linea 70 puedes 
introducir el angulo del punto de vis¬ 
ta; se acepta cualquier angulo entre 0 
y 180 grados. A continuacion el pro- 
grama salta inmediatamente a la ruti¬ 
na de la Ifnea 1000 que se encarga de 
crear y dibujar el soiido tridimensio¬ 
nal. 


LA TERCERA DIMENSION 


La siguiente rutina utiliza las Ifneas 
que has dibujado y el angulo de vista 
introducido para transformar el con- 
torno en un soiido de aspeefo tridi¬ 
mensional. 

En la linea 1000 hay un bucle con- 
trolado por la variable B, que va se- 
leccionando cada una de las Ifneas y 
tomando sus coordenadas terminales 
de la cadena Seguidamente salta a 
la siguiente rutina, que comienza en la 
linea 1500, 

Esta rutina desplaza las coordena¬ 
das de manera que tengan en cuenta 
ei punto de vista seleccionado por tf y 
a continuacion dibuja la linea que uti¬ 
liza estas coordenadas desplazadas. 
Este proceso se repite 20 veces, de 
modo que tu Ifnea original se repite en 
20 postciones diferentes alrededor de 
un circulo. La rutina vuelve despues a 
la Ifnea 1000 para hacer lo mismo con 
las siguientes Ifneas. Tomando las If¬ 


neas de una en una, la imagen va sien- 
do eonstrufda por pasos, como podras 
comprobar al ejecutar el programa. 

Si observas el programa cuidadosa- 
mente, podras ver que el procedimien- 
to para dibujar la primera de tus Ifneas 
es ligeramente diferente del seguido 
para las dernas Ifneas. Esto se debe a 
que las coordenadas desplazadas que 
va calculando siempre corresponden 
al final de las Ifneas, mientras que las 
coordenadas del comienzo son los fi* 
nales de las Ifneas ameriores. Sin em¬ 
bargo en la primera Ifnea hay que cal- 
cuiar tambien las coordenadas de co¬ 
mienzo. 

Las Ifneas 1560 y 1565 sirven para 
comprobar si se esta trabajando sobre 
la primera Ifnea, Cuando es B = 1, sig- 


del centro hacia las coordenadas ter¬ 
minales de las Ifneas. 

De esta forma, para cada linea de 
tu dibujo se dibuja un anillo complete 
de Ifneas, cuyos extremes quedan uni- 
dos por un circulo, produciendo un 
efecto tridimensional. Las coordena¬ 
das de cada punto terminal se almace- 
nan en la matriz a() de forma que el 
ordenador conoce las posiciones de 
parti da del siguiente con junto de li- 
neas. 


ROTACIONES 


Cuando el dibujo se completa, el 
programa se queda esperando. La pul¬ 
sation de una tecla cualquiera llamara 



nifica que se trata de la primera Ifnea, 
mientras que cuando es BF - 1, sig¬ 
nifies que la primera Ifnea se ha des- 
plazado un espacio. Con el desplaza- 
miento de un espacio, lo que sucede 
es que se calculan las coordenadas y 
se almacenan en la matriz A(). Estas 
coordenadas formaran entonces el co¬ 
mienzo del siguiente conjunto de If¬ 
neas, Si el primer movimiento no co- 
rresponde a un bianco, significa que 
se ha empezado a partir del centro por 
lo que los «rayos» se dibujan a partir 


entonces a la rutina de los grafieos pa- 
ginados que se ocupa de hacer girar el 
dibujo, Se dibujan varias imagenes, 
una tras otra, y se almacenan en me- 
moria. El numero de imagenes, A, 
esta controlado por el bucle que se ex- 
tiende entre las Ifneas 610 a 690. La 
variable A determina tambien la ex¬ 
tension que se desplaza cada imagen, 
alterando el angulo que figura en la If¬ 
nea 1510. Posteriormente las image¬ 
nes se presen tan una tras otra para 
producir el efecto de la animation. 
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MUSICA 

SEN CILLA 

Con unas senciilas nociones de teo- 
ria de La musica y un corto programs, 
puedes transformar tu ordenador en 
un instrumento de teclado y eonvertir- 
te en un virtuoso de La teda plastica. 

Una de las multiples habiltdades del 
Spectrum es la generation de sonidos. 
Puedes fijar la altura de los sonidos, 
su duration y otros aspectos de ia nota 
que interprets el ordenador, 

A difereneia de otros ordenadores, 
el Spectrum solo puede ejecutar una 
nota a la vez, por lo que no puede emi- 
tir varies sonidos simultaneos para 
formar acordes, 

Pero en este articulo no nos ocupa- 
remos de este tema, sino que veremos 
la forma en que puedes ejecutar me- 
lodias senciilas. Para empezar vere¬ 
mos unas senciilas nociones de teorfa 
de la musica a fin de que puedas en- 
tender los conceptos basicos; despues 
aplicaremos dichos conceptos a un 
programa que convierte tu ordenador 
en un sencillo instrumento, 

Para empezar, un par de senciilas 
definiciones fundamentals. Llama- 
mos «tono» o «altura» de un sonido a 
la cualidad que tiene por la que somos 
capaces de distinguirlo de otros a los 
que Ilamamos mis altos o mas bajos 
que el primero. «Intervalo musical* es 
la distancia musical que existe entre 
dos notas musicales. El intervalo es 
pues una medida de la difereneia de 
almra o de tono entre dos sonidos. Si 
dos notas estan muy proximas* como 
por ejemplo DO y RE, el intervalo 
musical que forman es pequeno (en 
este caso se trata de un intervalo de se- 
gunda) mientras que si estan mas ale- 
jadas, por ejemplo DO-LA el interva¬ 
lo es grande (intervalo de sexta). 


1 A ESCALA 


Una escala es una sucesion de son l 
dos, cada uno de los euaies tiene un 


■ 

NOTAS Y ESCALAS 

■ 

TONOS Y SEMITONOS 

■ 

TOCANDO CANCIONES 

DE OfDO 

■ 

UN TECLADO MUSICAL 


tono mas alto que el anterior. En es- 
pafiol, las notas reciben los nombres 
DO, RE, MI, FA, SOL, LA y SL En 
ingles las mismas notas se designan 
con las letras C D, E, F, G, A y B 
(Observa que la letra A corresponde 
a la nota LA y no al DO, como tal vez 
podria esperarse). Si una determinada 
escala empieza por la nota DO, la oc- 
tava nota con la que se encuentra al 
recorrer ordenadamente la sucesion 
de notas es nuevamente un DO, 

A la escala anterior se le llama «es- 
cala de DO mayor» para indicar la 
nota por la que empieza y unas deter- 
minadas relaciones interv&licas entre 
las notas que la constituyen; se pue- 
den conservar estas relaciones entre 
los intervalos de una escala, de modo 
que esta empiece por una nota distin- 
ta de DO, por ejemplo el RE, con lo 
que seguiria teniendo estructura de es¬ 
cala mayor, en este caso de Re mayor. 


<?QUE PASA CON LAS TECLAS 
NEGRAS? 


Las tedas blancas del teclado de un 
piano se designan con los nombres 
DO, RE, MI FA, SOL, LA y SI; a 
continuation se empieza de nuevo por 
el DO, despues otra vez RE, etc, re- 
pitiendose siempre el ciclo* Para pro¬ 
duct los sonidos correspondientes a 
una escala de DO mayor, se tocan 8 
teclas blancas consecutivas empezan- 
do por un DO hasta Uegar al siguien- 
te DO, Una escala mayor puede em¬ 
pezar por un sonido de cualquier altu¬ 
ra: si empieza por un DO, tendremos 
una escala de DO mayor, si empieza 
por un RE, sera una escala de RE ma¬ 
yor, etc. As! pues al elegir la altura del 
sonido de comienzo, o como se dice 
lecnicamente, el «tono» o «tonalidad» 
de la escala, la estructura abstracts de 
la escala mayor queda asociada con 
una determinada altura de los sonidos. 


las teclas negras para que sir- 
ven? Para contestar a esta pregunta, 
hay que decir primero que la escala 
mayor no contiene todas las notas po- 
sibles entre su primera y su ultima no¬ 
tas. Entre el DO y el RE, y entre el 
RE y el MI, por ejemplo, existen no¬ 
tas que no forman parte de la escala; 
estas son las notas que corresponden 
a las teclas negras. La nota correspon- 
diente a la teda negra situada entre el 
DO y el RE se llama DO sostenido o 
RE bemol. El adoptar una u otra de¬ 
nomination depende de que se tome 
como referenda la nota inmediata- 
mente anterior (el DO) o la inmedia- 
tamente posterior (el RE)* Analoga- 
mente, la tecla negra situada entre el 
RE y el MI corresponde al RE soste¬ 
nido, al que tambien se llama RE be¬ 
mol Ffjate que no existe ninguna te¬ 
da negra situada entre el MI v el FA, 
ni entre el SI y el DO, por lo que no 
existen notas intermedias entre dichas 
notas, 

El intervalo existente entre cual¬ 
quier nota y la nota de su tecla conti- 
gua, ya sea una tecla negra o una te¬ 
cla hlanca, se llama un semitono* Se- 
gun esto, las distancias existentes en¬ 
tre DO y DO sostenido, o entre DO 
sostenido y RE, o entre Ml y FA, son 
todas distancias de semi tono. Un in¬ 
tervalo que contenga dos semitones se 
dice que mide un tono, como ocurre 
por ejempio en los intervalos DO-RE 
y RE-MI. Con arreglo a la terminolo- 
gfa anterior, la disposition de tonos y 
semitones en una estructura de escala 
mayor es la siguiente: 

2 semitones = 1 tono entre el pri¬ 
mero y el segundo grades (primera y 
segunda notas de la escala, DO y RE 
en DO mayor) 

2 semitonos = 1 tono entre el se¬ 
gundo y tercer grados (RE y MI en 
DO mayor) 
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1 semitono entre el tercero y cuartu 
grados 

2 semitonos = 1 tono entre ei cuar- 
to y quinto grados (FA y SOL en DO 
mayor) 

2 semitonos = 1 tono entre el quin¬ 
to y sexto grados (SOL y LA en DO 
mayor) 

2 semitonos = 1 tono entre el sexto 
y septimo grado (LA y SI en DO ma¬ 
yor) 1 semitono entre el septimo gra¬ 
do y el primer grado de la octava si- 
guiente (SI y DO en DO mayor) 


DIFERENTES ESCALAS MAYORES 


Como acabas de ver, en total hay 
doce semitonos desde un DO hasta el 
siguiente, distribuidos entre ocho no- 
tas a lo largo de la escala mayor. 

Supongamos ahora que quieres 
construir una escala mayor que empie- 
ce por la nota SOL, es decir, una es- 
cala cuyo primer grado sea la nota 
SOL, el segundo grado la nota LA y 
asi sucesivamente. Si te limitas a tocar 
las ocho teclas blancas de un piano, 
empezando por el SO I y siguiendo 
hacia los sonidos mas agudos hasta lie- 
gar al siguiente SOL, te encontraras 
con que la distribution de intervalos 
es incorrecta, no correspondiendo a la 
de una escala de SOL mayor. Los in¬ 
tervalos entre las notas sexta y septi- 
ma, MI y FA son los que no corres¬ 
ponded no obstante si tomas el FA 
sostenido (teda negra) en vez del FA 
de la tecla blanca (al que se llama FA 
«natural»), comprobaras que el pro- 
blema queda solucionado. Puedes 
comprobar esto sobre el teclado. 

De una forma analoga, la escala 
mayor que tiene la nota FA como pun- 
to de partida, llamada escala de FA 
mayor, esta formada por las notas FA, 
SOL, LA, SI bemol, DO, RE, MI y 
FA. Observa que hay que tomar el SI 
bemol en lugar del SI natural a fin de 
que los intervalos LA-SI y SI-DO re- 
sulten correctos. De hecho puedes 
construir una escala mayor empezan¬ 
do por cualquier nota, siempre que 
emplees sostenidos o bemoles en las 


Aplkfl»° ne ^ 



Hay muchas, muchas canciones que 
pueden interpretarse utilizando unica- 
mente notas de la escala mayor, En 
particular sucede esto con muchas pie- 
zas folkloricas, canciones de cuna y 
ciertos himnos. 

Sin embargo hay otras piezas musi- 


notas adecuadas, pero cualquier esca¬ 
la mayor basada en una nota distinta 
de DO, necesariamente utilizara una 
o mas teclas negras; la escala de DO 
mayor es la unica que solo utiliza te¬ 
clas blancas. Esto es lo que haee que 
sea tan facil de tocar y explica el por- 
que es tan popular. 


cales mas complicadas que no se limi- 
tan unicamente a las notas de la esca¬ 
la mayor. Tipicamente suelen empe- 
zar con una determinada escala y, a 
medida que fa ohra se va desarrollan- 
do, se desplazan temporalmente hacia 
otras escalas que utiltzan notas que no 
forman parte de la escala primitiva. 
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Despues de esto pueden retornar o no 
a la escala original, Tambien puede 
ocurrir que se utilicen notas ajenas a 
la escala para hacer que la melodfa ad- 
quiera mas colorido. 


iPARA QUE SIRVEISI SOSTENIDOS 
Y BEMOLES? 


^Por que utiiizan !os musicos un 
sostenido {el FA sostenido) cuando 
estan componiendo en SOL mayor v 
un beraol (el SI bemol) cuando com* 
ponen en FA mayor? A1 fin y al cabo 
el FA sostenido y ei SOL bemol se 
consiguen con una misma tecla negra. 
^Por que no utilizar pues el SOL be¬ 
mol en lugar del FA sostenido cuando 
se compone en SOL mayor, o el LA 
sostenido en lugar del SI bemol al 
componer en FA mayor? De esta for* 
ma podria uno librarse para siempre 
de los sostenidos o de los bemoles. 
Necesitas ambas cosas: sostenidos y 
bemoles, porque ello ayuda a que 
cada nota diferente de la escala se 
pueda identificar por si misma, de 
modo que diferentes notas tengan 
nombres diferentes. Si se sustituye el 
SI bemol por el LA sostenido, la es¬ 
cala de FA mayor se convertirfa en FA 
SOL LA LA sostenido DO RE MI 
FA, con lo cual tendrfas dos LA y nin- 
gun SI, lo que puede resultar confuso. 
Si en Sa tonalidad de SOL mayor sus- 
tituyes el FA sostenido por el SOL be¬ 
mol, te encontraras con dos SOL en 
la escala (SOL bemol y SOL natural), 
pero no tendras ningun FA. Utilizar 
sostenidos donde debiera haber bemo¬ 
les y viceversa, es un disparate musi¬ 
cal, algo as i como una falta de orto- 
graffa; los preparados musicales que te 
permiten utilizar unicamente sosteni¬ 
dos o bemoles, alegando que un DO 
sostenido es exactamente iguai que un 
RE bemol, carecen por completo de 
elegancia. 


FRECUENCIAS E INTERVALOS 


Los sonidos musicales se producen 
por las vibraciones repetitivas del aire, 
Cuanto mas alta sea la velocidad de 
repeticidn o «frecuencia» de la vibra- 


cion, mas alto o agudo es el sonido de 
la nota resultante. La unidad de me- 
dida de la frecuencia es el ciclo por se- 
gundo (cps) o lo que es lo mismo, el 
hertzio (Hz). 

Fijemonos en una nota determina- 
da, con una frecuencia, por ejemplo, 
de 256 Hz (la frecuencia de la nota 
DO); si doblamos su frecuencia, para 
obtener 512 Hz, la nueva nota resul¬ 
tante es otro DO situado exactamente 
una octava por encima del primero, 
(En el ejemplo de escala que hemos 
visto anteriormente, una octava es el 
intervalo musical situado entre el DO 
bajo y el DO alto). Una nueva dupli¬ 
cation de la frecuencia, para dar 1024 
Hz, da como resultado el siguiente 
DO, cuyo tono esta exactamente una 
octava por encima del anterior, y asi 
sucesivamente. Segun esto, al irmlti- 
plicar la frecuencia de una nota por al- 
gun mimero, se anade un determina* 
do intervalo musical a dieha nota. 

Ya has visto que hay 12 semitones 
iguales en una octava (en total hay 13 
teclas, 8 blancas y 5 negras, con doce 
semitones entre cada dos de ellas con- 
secutivas). Si la duplieacidn de la fre¬ 
cuencia da lugar a la adicion de un in¬ 
tervalo musical de octava y hay doce 
semi ton os en una octava , ^cual es la 
multiplicacion de frecuencia que co- 
rresponde a la adicion de un intervalo 
de semitono? En el caso de la octava, 
temamos; 

frecuencia de una nota x 2 = fre¬ 
cuencia de la nota en la octava siguien¬ 
te 

Si ahora llamamos X al factor mul¬ 
tiplicative correspondiente a un semi¬ 
tono, tendremos: 

frecuencia 

*X*X*X*X*X*X*X*X*X*X*X*X— 

frecuencia de la octava siguiente 

El mimero que divide la relation 2:1 
en 12 partes iguales es la rafz (1/12). 
Al multiplicar 256 Hz por este nume- 
ro se le afiade un semitono a la nota 
initial; una nueva multiplicacion ana¬ 
de un segundo semitono, y asi sucesi¬ 
vamente hasta que despues de 12 mul- 
tiplicaciones sucesivas se llega a la fre¬ 
cuencia de la octava superior, Esta es 
la razdn por la que la rafz duodecima 


de 2 es una constante fundamental en 
la musica, apareciendo con frecuencia 
en los artfculos sobre teoria musical. 


MELODIAS CON LA ESCALA 
MAYOR 


Supongamos que quieres ejecutar 
una melodia con los sencillos progra- 
mas de tedado que veremos mas ade- 
lante. ^Cbmo puedes saber que nota 
es el DO, cual es el RE, etc, si nadie 
te da esta informacidn? En otras pala- 
bras: ^Como puedes hacer para inter- 
pretar una melodia «de oldo»? Si em- 
piezas a tocarla por una nota cualquie- 
ra al azar, e intentas ir encontrando 
las demas notas, lo mas probable es 
que te saiga mal. 

^Hay algun metodo que te permita 
deducir como se adapta una melodfa 
dada a la escala mayor? Te puede ayu- 
dar el encontrar cual es la nota que 
hace las veces de DO en la melodfa, 
a partir de la cual puedes deducir la 
position de las denies notas. Hay mu¬ 
ch as melodfas que empiezan en DO, 
terminan en DO o ambas cosas, Y es 
el DO la nota que generalmente hace 
de pi vote o centro de grave dad alre- 
dedor del cual se organizan todas las 
demas notas. Una vez que hayas en- 
contrado que nota es el DO, podras 
encontrar, con un poco de suerte, las 
restantes notas. Ensaya a ir tocando 
toda la melodfa desde el principio nota 
por nota, escuchando muy atentamen- 
te lo que vas haciendo y decidiendo si 
cada nota sucesiva es mas aguda o m&s 
grave que la anterior, y si pasa de una 
nota de la escala a una nota vecina 
(como ocurre con frecuencia) o reali¬ 
ze un salto de mayor amplitud. 

Si te equivocas al determinar la td- 
nica de la tonalidad, es decir la nota 
que hace las veces del DO, es posible 
que tu cancion no suene bien del todo; 
te sonara con sostenidos o bemoles, 
por lo que tendras que reconsiderar tu 
decision sobre que nota es el DO. Si 
sigues intentandolo un poco, cada vez 
te ira resultando mas facil desarrollar 
una cierta intuicidn en estos temas y 
con el tiempo podras sacar sin dificul- 
tad cualquier melodia en un teclado 
musical, Para ayudarte a empezar, ve- 
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remos en este articulo las notas que tc 
permitiran interpretar vanas melodias 
sencillas. 


clado musical normal de la siguiente 
manera: 


programa. Ademas, mientras se estan 
interpretando notas de la primera oo 
tava de la escala mayor, tambien se 



PROGRAMAS DE TECLADO 


lodos los programas utilizan las dos 
fi!as superiores del teclado del orde- 
nador; «Q», «E», «R», 

«Y». «U», «I» correspondent a DO, 
RE, MI, FA, SOL, LA, SI y DO y las 
teclas situadas en esta misma fila, mas 
a la derecha, corresponden a notas de 
la siguiente octava. Las teclas «2», 
«3», «6» y «7» corresponden a las 

teclas negras, por lo que el teclado del 
ordenador se corresponde con un te- 


2 3 5 6 7 

GWERTYUI 

drmfslsd 
o e i a o a i o 

Los programas presentan constan- 
temente esta information como recor- 
datorio mientras se esta ejecutando el 


presentan sus nombres en la pantalla 
durante la ejecucion del programa. 

Teclea el programa y ejeciitalo. Si 
examinas cuidadosamenfe los listados, 
encontraras varias ideas que te iran 
encaminando hasta que te conviertas 
en un virtuoso. 

El programa define las dos filas su¬ 
periores del teclado como si fueran 
una especie de iristrumento musical, 
por lo que cuando pulses las teclas se 
emitiran los sonidos correspondientes, 

El programa empieza por establecer 
unas variables que contiencn la dura¬ 
tion de cada nota, el mirnero de linea 
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MICROTRUCO 

Tienes varias formas de hacer 
que el discrete BEEP del Spec¬ 
trum suene un poco mas fuerte. 
Hay varies fabricates que ofre- 
cen mddulos que son conecta- 
bles al canal de sonido para ofr- 
lo a traves de un amplificador 
externo y un altavoz. Pero no 
hace falta que te gastes ni un 
dure si no quieres. 

Si tu cassette dispone de una 
toma de monitorizaddn, puedes 
usar su altavoz. En primer lugar, 
conecta las to mas de MIC entre 
el Spectrum y el cassette y a con- 
tinuacion pulsa RECORD y 
PLAY en el mismo, A partir de 
ese momento, los sonidos sona- 
ran por el altavoz de tu aparato. 
Una ventaja adicional de este 
sistema es que puedes controiar 
el volumen y el tono del sonido 
resultante. 

Sin embargo esta el problema 
del ruido de fondo, debido al 
motor del cassette. Si te parece 
que el nivel de ruido es intole¬ 
rable, la unica salida que te que- 
da es la adopcion de uno de los 
modules comerciales de que ha- 
blabamos al principso. 


del bucle principal (que se almacena 
en una variable de bucle»en vez de ha- 
cerlo en un numero real 1000, para 
ahorrar memoria) y la position del 
PRINT AT para la representacidn en 
pantalla, Despues contimia definiendo 
la presentation en pantalla y empieza 
con la parte generadora de sonidos, 
Se llama bucle al punto a donde re- 


gresa el programa despues de ejecutar 
una nota, quedandose a esperar hasta 
que se pulse una teda. Cuando se 
aprieta una tecla, se carga en la varia¬ 
ble «note>> el numero de cod i go del ca- 
raeter que se pulso. 

El ordenador se va entonces al nu¬ 
mero de linea contenido en «noie». 
Los mimeros de linea corresponden a 
los mimeros de eodjgo de las teclas uti- 
lizadas por el programa {de 48 a 121). 
El comando BEEP de cada linea se 
encarga de ejecutar la nota adecuada, 
por ejemplo, con la Q suena un DO, 
El primer numero que figura despues 
del BEEP te da la duration de la nota 
(en este caso es la variable d), mien- 
tras que el segundo numero indica su 
altura. 

Con algunas de las teclas, tambien 
se presenta en pantalla el nombre de 
la nota que se esta ejecutando en cada 
momento; asf sucede con todas las no- 
tas de la primera octava de la escala 
mayor, y se ha programado en la mis- 
ma lfnea que se ocupa de la interpre¬ 
tation de la nota. 

Despues de emitir la nota, el orde¬ 
nador vuelve al bucle principal, en la 
linea 1000, para esperar hasta una 
nueva pulsacion de tecla. 


T ec lea 


1 GO TO 900 

47 GO TO bucle 

48 BEEP d,15: GO TO bucle 

50 BEEP d,1: GO TO bucle 

51 BEEP d,3; GO TO bucle 

53 BEEP d,6: GO TO bucle 

54 BEEP d,8: GO TO bucle 

55 BEEP d,10: GO TO bucle 
57 BEEP 6,13: GO TO bucle 
101 PRINT AT y / x; , 'MI ,, i BEEP 

d,4: GO TO bucle 
105 PRINT AT y,x;"D0": BEEP 


NO 0LVIDES EL TELEFONO... © 


Cuando, por cualquier motivo, nos escribas, no oivides in¬ 
dicar tu numero de telefono. Asi nos sera mas facil y rapido 
ponernos en contacto contigo. Gracias. 


d,12: GO TO bucle 

111 BEEP d,14: GO TO bucle 

112 BEEP d,16: GO TO bucle 

113 PRINT AT y,x;"D0": BEEP 
d,0: GO TO bucle 

114 PRINT AT y,x; M FA": BEEP 
d,5: GO TO bucle 

116 PRINT AT y,x;"SO": BEEP 
d,7: GO TO bucle 

117 PRINT AT y,x;"SI": BEEP 
d,11 : GO TO bucle 

119 PRINT AT y,x;"RE”: BEEP 
d,2; GO TO bucle 

121 PRINT AT y / x; M LA'': BEEP 
d,9: GO TO bucle 

800 GO TO bucle 

900 LET d=.03: LET x=5: LET 
buc Le=1000 

901 BORDER 4: PAPER 4: CLS 

902 PRINT AT 8,6;"d r m f s 
l s d" 

903 PRINT AT 9,6;"o e i a O 
a i o" 

910 LET a$=" 2 3C3*ESPACI03 
5 6 7C3*ESPACI039 0" 

920 FOR y=3 TO 4: GO SUB 990 

930 NEXT y 

940 LET a$="G W E R T Y U I 
0 P" 

941 PAPER 7: INK 0 

950 FOR y=4 TO 6: GO SUB 990 

960 NEXT y 

980 LET x=15: LET y=15: GO 
TO bucle 

990 FOR i=1 TO LEN a$ 

991 IF a$(i)<>CHR$ 32 THEN 
PRINT AT y,x+i;a$Ci>; 

992 NEXT i: RETURN 

1000 PRINT AT y,x;CHR$ 32; 
CHR$ 32 

1005 LET a$=INKEY$: IF a$="" 
THEN GO TO 1000 

1100 LET nota=C0DE a$; GO TO 
nota 


Cuando ejecutes este programa ob- 
servaras que al mantener mucho tjem- 
po apretada una tecla. se oye un soni¬ 
do pulsante. Elio se debe a que el 
Spectrum tiene que hacer el BEEP du¬ 
rante un intervalo de tiempo fijo. Por 
ello lo que el programa hace realmen- 
te es ejecutar la misma nota una y otra 
vez en intervalos de tiempo muy cor- 
tos. 
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! n la pantalla aparece una mina con un diamante en el fondo. Si quieres 
hacerte millonario aqui tienes tia oportunidad* Tienes que bajar a por los 
diamanles evitando los distintos obstaculos que encuentres* (Rocas y residues de 
grisii), A1 coger el diamante tienes que salir r&pido, antes de que te caigan las 

pesas encima, 

Esto debes hacerlo en un tiempo determinado* Cada vez que lo consigas se har& 

mis dificil. 
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ibilidad de 


F A=abajo, 0=izquierda, 

Para los menos s eg taros &ef $us facultades el programa ofrece 

‘ Miecc jSnar entre 1 y 20 41®!,,..' ' 

A* Varela Yebra 

f H .v ■ * r,T = ■ > ■ r - ri V'y r ^‘ r 






Ht. 


■ t 7 .to. (#)que te provocaran ,4a . 

K . a,» 


Que tengasi+.soett.eYy, ,„ 


1 REM JOSE MANUEL VARELA. 

3 PAPER 1: BORDER 1: INK 1: CLS : PRINT "Tienes una mina ILena de diaman-tes, 
pero tendras que bajar a por el,los si quieres hacerte ri-co. 

V Para hacerlo tienes-que';bajar alfondo antes de que se acabe el oxig 

enOw t , ;[ Debes'eVijt^f Las rocas ( a ) ya que -teLh'aran per 

tiempo y los resi 

'^nRfta.Jiajpas. ri -$o . ’’ ».-. ' 1 ■ ‘ ■' . m- 

■^i'if^olS^iNT 4^16 10""Q -ARRIBA .S'* A -ABAJO $£• 

'" J O.-IZQUI'ERDA . P.-DEREeNA" W-' 

5 PRINT AT 21,9;"Pulsa una tecla" 

6 INK 7: FOR f=22528 TO 23231 : POKE f,15: OUT 254 / RND*254: POKE f+^IOQ: NEXT 
f: PAUSE 0 

7 LET c$= M MIN'': LET r=0: LET r$=STR$ r 

8 GO SUB 9000: POKE 23658,8: INPUT "Cuantas vidas quieres?(1/20) ";v: LET v$= 
STR$ v: LET p=0j:'LET p$=STR$ p: IF v=0 OR v>20 THEN \(50 TO 8 

9 LET p=0; Lfel/IVU:‘'..PAPER 7: BORDER 7; INK 0: CLS'-AV V 

8888 ":AT 21,0;"88 


10 BORDER 5 i.i CLS. . sEiPfSlMT INK 1; "888888888888888888: 

.■*'' 



20 LET t = 100: LET t$=STR"i t: FOR f=1 TO 20: PRINT 1 ;aY t, 0£^ m : NEXT f: F 

An X — xa Ol . nn t mXi-■ ■ Tin; ax -C tz . (joooooom . mt ut r _ - nr tiit p. rut/ c -i. a a nr n A . a t 1 


t='1 TO 21: ■PP'NT;INK ,26;' '888888 ’ 1 : NEXT JiJiX PAPER 1; AT 

; "PUNT0S"; AT 4>‘2^)‘ , ’*tt0dfi'60 rt .}'ftT 4,32-LEN p$;p$;AT 7,26ji "VIDAS"; AT 9,28; "00"; A 


AT 9 


OR f= 

26 

,30-LEN v$;v$;AT 12,26;"TIEMPO";AT 14,26;" 000 ";AT 14,30-LEN t$;t$ 

25 PRINT INK 7; PAPER 1;AT 16,26;''REC0RD";AT 18,26;"000000";AT 18,32-LEN r$;r 
$;AT 20,27;c$ 

30 PRINT INK 1;AT 3.0: "888 8888888888888888888888888888 " 

"; AT 2,1 . f 

r r-. l w p t ip fm. i 


> J W 

I I \ F! 

1 1 f" , m j r i ’ . 


•.'40 PRINT PAPER 5; INK 4;AT 1,1;" 

' BAB88AB88ABA " 

f, jagHtLf« TO 143: PLOT 8,f: DRAW ' 


BA 


BA BA 


B88A 



i s 


ktl 


•Sr'i-v 


ii, 2;199,0: NEXT f: FOR f=8,pT0 iliUSBt 8 
2;48,0: NEXT f: FO'R^^W^r-PLOT 176,f: DRAW INK 

k p 1 Iff/* Jt fr iff*. , = 


«*t rf!>F i ]Ti r , ' if- 

“''biir >' 5 ,. jj. 1 ' ;* ■NVrSe,. JK ’ 


"i : E f 

i'cIbIc 

m 

I II- V 


F-O" 
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1 1 
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Sr, * 


60 PRINT INK 1;AT 16 ,7: "888888888888888 1 1 :AT 17,7; '^."; AT 18,7;X'; AT 18^21,;X' 
;A#1 i @^; , '8";AT 20,7; "8"; AT 20,21 ;"8"; INK 4; AT 20,13;INK 4; AT 1 ?Jt|f y C C C C H 

^cccftccc -K “ as pd ■ 

70 PRINT PAPER 5; INK 1;AT ZjMgS FOR f=r^tO -8 STEP -1: BEE^^^P^ J 
: PRINT AT 2,1;" "; INK 1; PAPER 5;Af‘i,1;'TJ_": BEEP .6,-5: BEEP .6 
-7: BEEP .6,-8: PRINT PAPER 5;AT 2,1;" INK 1;AT 

75 FOR f=0 TO 30+p/100: LET d=INT (RND*15>+4: LET h=INT (RND*24)+1; IF d>l5 AN 
0 h>5 AND h<23 THEN GO TO 78 

77 PRINT INK 6; PAPER 2;AT d,h;"a" 

78 NEXT f: FOR f=1 TO 15+p/100: LET d=RND*15+4: LET h=RND*24+1: IF d>15 AND h> 

5 AND h<23 THEN GO TO 80 

79 PRINT INK 7; PAPER 2;AT d,h 

80 LET d=0: NEXT f: LET kv=4: LET kx=3: BEEP .1,10: BEEPi.2,20: PRINT AT kv.kx 
; INK 0 


T d=0: NEXT T: LET ky=4: LET kx=3: BEEP .1,10: BEEP .2,20: PRINT AT ky, 
; PAPER 7;"tr M* 

INKEYS pL' ••!'. - 

i PRINT?' AT 19,7;'£';AT 19^$;®: LET k=Jf 

Clio 1000 151,1 ’ >, f""r'lv'iJtfi.'.' 

R;M B t.uuu „.!j:.ijjp p! l ;,0V.;.. 


100 LET z=INT (RND*150): LET a$=INKEY$ 


THEN 


105 IF z>140- 
110 IF a$="9 M THEN GO 
120 IF a$="A" THEN GO SUB 1100 


i' j F 1 E i 

'"'..f’WV * 


v: i|| 

p|f 




130 IF a$="0" THEN GO SUB 1200 
140 IF a$="P’' THEN GO SUB 1300 
143 PAUSE 10 

145 LET t=t~1 : LET tS=STR$ t: PRINT INK 7; PAPER 1;AT 14,27;"00";AT 14,30-LEN 
IF t=0 THEN GO TO 2100 

147 'PRINT AT 19,7;" AT 19,21;" IF z>14Q~p/100 THEN PRINT AT 19,7; AT 1 

,, irSHij^^To i oo . 

1000 IF ky=4 AND kx=3 AND d=1 THEN LET d=0: GO TO 2600 

* r . ;1 

, 1001 IF ky=4 THEN RETURN 

1003 PRINT AT 19,7;.^19,2^'": LET k=0 

1010 IF SCREENS (ky-1,kx)-'3" THEN LET t=t-5: BEEP .6,-3 
1020 IF SCREENS (ky-1,kx)="# M THEN GO SUB 2100 
1030 IF ky=18 AND kx>7 AND kx<21 THEN RETURN 

1040 IF ky=l9 AND kx=7 OR ky=19 AND kx=21 THEN GO SUB 2100: RETURN 
1047 IF POINT (kx*8+3,175-C(ky-1>*8+3)) THEN PRINT INK 3; PAPER 7;AT ky-1,kx;" 
LET t-t-1: BEEP .1,10: PAUSE 25 

1050 PRINT AT ky,kx;" ": LET ky=ky-1: PRINT INK 0; PAPER 7;AT ky,kx;"N.": RETURN 
1100 IF ky=15 AND kx>=7 AND kx<=21 THEN RETURN L. ■ 

1110 IF ky=20 THEN JREfURN ™lJUL«, 

LET k=0 

- * F ; rTn tluiiHi ill fjfcjPInfjl ll*f 


' if: 

w ' , WiwlS!* ,w, av W 


1113 IF k=1 THENi'SjPRINtpiiF , '';i9,7;" AT 19,21;" " 

1115 IF ky=19 AND kx=13 AND d-0 THEN LET d=1: GO'SIIB 


1120 IF ky-19 AND kx=7 OR ky=19 AND kx=21 THEN RETURN -S!;'- , M. 

1125 IF ky=19 AND kx=22 AND k=1 THEN GO SUB 2100 
1127 IF ky=19 AND kx=8 AND k=1 THEN GO SUB 2100 
1130 IF SCREENS (ky+1 ,kx) = ' , a" THEN LET t=t-5: BEEP .5,-4 
1135 IF d=1 AND ky=19 THEN RETURN 

1140 IF SCREENS (ky+1,kx)="#" THEN GO SUB 2100: RETURN 

1145 IF POINT (kx*8+3,175-((ky+1)*8+3)) THEN LET t=t-1: PRINT INK 4;AT ky+1,kx 
.. ;"G.": BEEP .1,10: PAUSE 25 L J-v 

1150 PRINT AT ky,kx;" LET ky=ky+1: PRINT AT ky,kx;"N": RETURN 


’ { 1200 IF kx=1 THEN RETURN 

ii , . , i]r j., ,i jA , . i.l|r|j. t M jui „V ...nr 1 w 

1205 IF k=1 AND ky=19 AND kx=22 THEN GO T0 : « ‘ 

■ , * ■/ 1 ' 1 HHnp 1 1 
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Hl .,1 I i i ■ 1 

■ -I i t « i 


AND ky=19 AND kx=8 THEN GO TO 2100 

1 ?nO TC 1^=1 TUCM DDTMT AT 4 0 * 7 . 1 * »»4 AT ^ O 


SM^W HEN PRINT AT 19,7;" ";AT 19,21;" LET k=0 
F <y=18,AND kx=22 OR ky=18 AND kx=8 THEN GO SUB 21 
F ky=20 AND kx=14 AND d=0 THEN LET d=1: GO SUB 230 




ft A 


1 KWilW 1 , 

i pis. u \ • irif1 ,= v,u?i' *i , Jjp» 

I .; tfVrt'L.iiji 

00: RETURN-™™,: 1 * 

l:«II,4cy=20 AND kx=14 AND d=0 SUB 2300 m. 

PfafTOW.'AND ky=16 OR kx=22 AND ky=17 OR kx=22 A un rt ° L “-° 


,^n 

m 114 


AND ky=20 OR kx=8 AND ky=20 


|3 ih 

r ■ \ 1 

i i a J S 


« * 


p ■ i - EfiiiHH* H 

#M210 IF 

■w 

“1230 
THEN RETURN 

1240 IF SCREENS Cky,kx-1)="B" THEN LET t=t-5: BEEP .5,-4 
1250 IF SCREENS (ky,kx-1)="#" THEN GO SUB 2100: RETURN 

1260 IF POINT CCkx—15*8+3,175-Cky*8+3)) THEN LET t=t-1: PRINT INK 4;AT ky,kx-1 
;"\V'; BEEP .1,10: PAUSE 25 

1270 PRINT AT ky,kx;" LET kx=kx-1: PRINT AT ky,kx;’W': RETURN 
1300 IF kx=25 THEN ; RETURN 

1302 IF k=1 AND ky=19 AND kx=20 THEN GO TO 2100 
1304 IF k=1 AND ,ky-19:i;iAND kx=6 THEN GO TO 2100 
1306 IF k=1 THEN -PtfENT Atafe;" ";AT 19,21;" 

1310 IF ky=16 AND: ! kx=6 OR ky=17 AND kx=6 OR ky=20 AND kx=6 OR ky=20 AND kx-20 TH 
EN RETURN »T j. 

1320 IF ky=18 AND kx=6 OR ky=18 AND kx=20 THEN GO SUB 2100 
1330 IF ky=20 AND kx=12 AND d=0 THEN LET d=1: GO SUB 2300 
1340 IF SCREENS (ky,kx+1 )="a" THEN LET t=t-5: BEEP .5,-4 
1350 IF SCREENS (ky,kx+1)="#" THEN GO SUB 2100: RETURN 

1360 IF POINT ((kx+1)*8+3,175-(ky*8+3)) THEN LET t=t-1: PRINT INK 4;AT ky,kx+1 
;X": BEEP .1,10: PAUSE 25 

1370 PRINT AT ky,kx;" LET kx=kx+1: PRINT AT ky,kx;'V': RETURN 

2100 FOR f=0 TO 75: OUT 254,248: OUT 254,250: OUT 254,252: OUT 254,253: OUT 254, 


i'l liT j| : 

M 



v$;v$: GO TO 10 




P ! ■ 


2300 LET p=p+50: LET p$=STR$ p: PRINT INK 7; PAPER 1;AT 4,32-LEN p$;p$: PRINT A 
T 20,13;" RESTORE INT <RND*20)+2500 
2310 FOR f=1 TO 13: READ x: LET y=17 
2315 IF y=20 THEN GO TO 2410 

2320 PRINT AT y,x;" IF kx=x AND ky=y+1 THEN GO TO 2100: RETURN 
2340 LET y=y+1: PRINT INK 4;AT y,x;"C": LET a$=INKEY$ 

2350 IF a$="Q" THENv GO SUB 3000 
2360 IF a$="A" THEN SUB 3100 
2380 IF a$="0" THEN - 6C : ' SUB 3200 

i 1 , , 1 M'PrEWi 1 '. l ir^ 


B p , .1 » l 

I I I. I 4 
I 1 r 


ftj 


2390 IF aS-'P" 1 THEN GO SUB 
2400 GO TO 231® 

2410 NEXT f: GO “TO i00 " 

2500 DATA 13,18,9,12,15,20,11,10,19,17,8,14,16 
2510 DATA 14,19,10,13,20,8,12,18,11,15,9,17,16 
2520 DATA 12,16,10,19,12,8,17,20,11,15,18,9,13 

2600 PRINT AT ky,kx;" "; INK 1; PAPER 5;AT 2,1;"IJ_ BEEP .1,15: PAUSE 18: PRIN 
T INK 1; PAPER 5;AT 2,1;"J BEEP .1,0: PAUSE 18: PRINT PAPER 5;AT 2,1;" L 
ET p=p+100: LET p$=STR$ p: BEEP .08,25: BEEP .07,10: 3EEP .08,30 
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3000POINT (kx*8+3,175-( (ky-1)*8+3)) THEN RETURN 

* J . .* . • I I I «|^rJnlllfrjr i .J.jj,aBB l B ? ? ^ ! : ! I ip'.ni-l-.. I*.! + • : I ’I”! i"* 

0 IF ky=19! 1 AND kx=7 OR ky=19 AND kx=21 THEN GO TO 2100 
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AT ky,kx;'7£': RETURN 


t r b .. 

+ 1 ' y 

’ 1 hV*' H f 

i,. I I | L r 

a *,, ,* ,* V ■ 


1,. f 1 W"r 

RETURN m« 1 ' 
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.I'iltL 

ill :,| |iM 
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RETURN 


302^,F|jRINT AT ky,kx;" 11 : LET ky f ky-1,:1|||jINT 

Ckx*8+3,175-<( ky+T^®@||fli RETURN 
«tol3ff^Wtefcvky,kx;" LET kMl'i'piHPfc.kxj'r 
^^■2O0 : lF,k.y=1^AND kx=8 THEN 60^®Bfciy*}, M 
■"^'IhTObS^^PN D kx=x+1 THEN GO 

3220 IF ky=19 AND kx=7 THEN PRINT AT y,x;" ": GO TO 100 
3225 IF POINT CCkx-1)*8+3,175-(ky*8+3)) THEN RETURN 
3230 PRINT AT ky,kx;" ": LET kx=kx-1 : PRINT AT ky,kx;'W' 

3300 IF ky=18 AND kx=20 THEN GO TO 2100 

3315 IF ky=y AND kx=x-1 THEN GO TO 2100 

3320 IF ky=19 AND kx=21 THEN PRINT AT y,x;" GO TO 100 

3325 IF POINT (Xkx+I)*8+3,175- (ky*8+3)) THEN RETURN Jy'V, 

3330 PRINT AT <y,kx;" LET kx=kx+1 : PRINT AT ky /kx; '-L; RETURN 
6000 PAUSE 150f;Lp^!|i| aK IF p>r THEN LET r=p: ^***M|^: CLS 
ER 4; INK 1; FU^gO ffipB^HA S CONSEGUIDO EL 60.1,0 

6005 GO TO 607 %***'^ ‘*'''* if ftffih*- ' J; 

6010 PRINT AT Islo^ggNSJUS^aALES": FOR F=14 Hf 

6020 LET b$=INKEY$"“ ... 

6030 IF b$="" THEN 
6035 LET c$=C$+b$ 

6040 PRINT INK 5; PAPER 1; FLASH 1;AT 15,F;b$: NEXT F 

6070 PAUSE 10: CLS : PRINT PAPER 5; INK 1;AT 10,2;"QUIERES JUGAR OTRA? C s/n 1 
6080 IF INKEY$= r, S" THEN GO TO 8 




if 


IM! J3 4 I 

41 


PRINT PAP 


GO TO 6020 


I f 


■, r 


“,IF INKEY$="N" THEN STOP 
i GO TO 6080 


" 1 , 
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1 IF UJ 1 
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* 90fli f ||ST0RE 9010: FOR n-1 TO T*.:.,*«[>r*$:, FOB f=0 TO 7: READ a 


ll?i 



POKE USR 
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A'f 


F I r Ellfiffi 1 . • , ■ |ii 

.... ' "I [lUTlLlL ' ' * iFiL 


• liltlr ' 11 'rPf". 1 ”■ 

H *J S’di i. /'P'h W, , - 
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9040 DATA "d",BIN 01111110,255,BIN 01111110,BIN 01111110,BIN 00111100,BIN 001111 

00,BIN 00011000,BIN 00011000 

9050 DATA "e M ,146,146,146,146,146,146,146,146 

9060 DATA "f",0,0,255,126,60,60,24,24 

9070 DATA "g",24,24,60,60,126,255,0,0 

9080 DATA "h",32>48,60,63,63,60,48,32 .... 

9090 DATA "i",Q,.0;BIN\11111110,134,135,255,BIN 01110000,32 
9100 DATA "j 
IN 11111110,. 

9110 DATA "k r };4,1 2 ,28;2.52 r ,252::>'28,12,4 


^ I I I 1 I IU/1 / l u i i i.uuuu/jl 

j" BIN 1Q101010,BIN 10101010,BIN 10101010,BIMHSl01010,BIN 11111110,B 

< >28 ilsSSfflea/i2/4 m ^ ^ f; 

l /60,56 ,72 


9120 DATA "r'524,60^126,.25,1.,126,60,56, 7 2 
9130 DATA "m",24,60,126 /r 223>T26,60,28,18 
9140 DATA "n",24,60,126,219,126,60,60,36 
9150 RETURN 
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* En la primera tienes que destruir la formacidn de naves que aparece en la 


parte superior de la pantalla antes de que te destruyan o se te acabe el fuel* 
* En la segunda tu Ciudad esta siendo bombardeada por misiles* Tu tienes que 

4 u>. nm 


destruir los misiles antes de que lleguen abajo. Si llegan 10 veces o te dan a 
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■ y" ti, pierdes una vida. 
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Como curiosidadi 
coordenadas de tu 


It • "" '-J-/ i'" qnp 

■»!,■» I,L y 41 40' » uM 

..•■■JSftf .«* Los controles son; yw'™ 

; 5“ : 1 zquierda, 8-derecha, 0=fuego,,,iy 
advertir que las naves marcianas disparar; 
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fit! 


HH 


dispararin siempre a las 

, ri I n P at ! 1 

posiciOn por lo que si quleres ,sobrevivir no deberis 


■■ -*'VllP®"":^ i ^ traerte ni un segundff^:;;;^!^,; ;;» 

ii si i alilri; W-iyt .... a «* r ni.jji i 50™! il i ’ F1 w 
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NOT A PARA ENTENDER LOS LISTADOS 
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if 
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Je ci n 


i II *i 9 m” - , . .. ^ - p „ m 

—-Y NUMEROS SUBRAY ADOS DE-BEN JNTRODUCIRSE EN MODO GRAF ICO (CAPS - SHIFT + 

t .. \VAt ^ „■=' v h » i>jJ, 



,.’9*^en,:;ea Spectrum) MANTENIENDO PULSADO CAPS SHIFT EN EL CASO DE LOS NX . . „ 

DOBLE SUBRAYADO. RECUERDA QUE PARA SALIR- DEL MODO GRAFICO DEBERAS PULSAR OTRA j ■ 

" JW “'i n . 


■ ••vez;: 1 _ 

,,P " "J r T3 «; 3 j|J 


liifFJji 

v M 7 


JL J 1 
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en el Spectrum-* 0 GRAPH -en el Spectrum Plus-** 
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1 REM JOSE MANUEL VARELA. 

2 CLS : POKE 23658,8 , ■ • 

5 PRINT AT 10,0;"Quieres Las instrucciones Cs/n)" 

6 IF INKEY$=THEN 1 ' “60 JO ' ID 


u ...Hlilii 


7 IF INKEY$= "N'‘ ;; THEN ', ft 3jQ{| T0 1.00 

tjl't * tin ii 


nr.l PP n" 


-m-Ai-ru™, " ^T0;;iD0 r- • .. 

hi"" n . i, 1 ■ ju " p "Vm . i 


„ U «« 


ri 
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* lii. dir la^L ’■ 
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IN l Ii 


8 GO TO 6 

10 PAPER 0: INK 0: GLS : : PRINT "Tienes que defender tuciudad delas naves de M 

.... ' “JShuar’ "' ■ - ■ ' , 7 »i . _ j __.. 


, ...t:! 1 ’ 1 ;w™!. 

‘jui'iti . in ii* 


arte que intentan dustruTrta. 


escuadron de raves antes ! de ! que te maten o se te acabe el fuel. 

Luego intentaran bombardearla con misiLes.Debes destruir los 
misiles antes de que Lleguen a la ciudad.Sidejas Llegar 10 mi- sites a la ciu 
dad te destruiran una de tus naves." 

14 PRINT AT 15,10;"5,-Izda. „ 8.-Dcha. 

U.-Fuego,i" , . ■ 1 / , ■ 1 

jl'. 15 PRINT AT 21,9; "Pulsa una tecj^a"^ ‘ .. -V' .. 

ND 


Prinjero tienes que destruir un 



AT 21,9; Pulsa una tec La „ . V a. ‘y 

=P TO 21: FOR g=0 TO •• • -Mjf ‘PAPER 1; OVER 1;■ »" 

ID*'NEXT g: BEEP .1 ,20: "NEXTgft^MSE O' -*"' " 

rf* ""-.I-1' j „ » ‘ 1 


GO SUB 9000 
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, J20C BORDER 1: PAPER 1: CLS 


ijU 


ii r: 


„ 11 

se m 


•.'..i 300”L'E;K;;f=0.LET z=1 5: LET v=3T''"GO'‘J.O' » 

-'"SS^lL^' VVPRINT INK 6; AT 10 / 0;" J 'HA§EL FUEL Y 

■“NA'NAVE^: iLET v=v-1 : IF v=0 THEN PRINT’TAT 10,0; INK 5; "Has acbado..frU8*^fiW^ 

• RFFP zJ&ff PAlJSE 50! CLS : GO T0»'3500 "iJllir''" ’ . ..* "/“."-It*. 


HA'S fEBftSl'fl"-- 


i *1 I H i 


ill ie an a 
mtM*" P »an a 
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Ml 
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ii"™ 


s: PAUSE 50: CLS : GO TO 

•352 ; ; fWdiE- : 250: CLS - w .... dtrm-- 

' 400" PRINT INK 7,AT D,0;"PUNT0S "7p;AtT,U; "RECORD >,r," por a $;*DA 
S ";v; INK 5;AT 2,0;" AAAAAAAAAAAAAA AAAAAAAAAAAAA 


AAAAAAAAAA 


AAAAAAAAAA 


AAA 
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AAA A A A A A 

J^JL i.. ^ ■ ■ 


rim 
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, 11,1 1. dr 


410 LET f=160"^ ":,“ 

420 IF p>500 THEN jpTlWSO"”' 

430 IF p>3000»THEN LET'f?130 
450 PRINT INK 7;AT ”FUELf; ,r " 

i u F ** r * I fc It lit Jufllfitr.^n ** J _ 51 - , _ „ 
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11 11 „u 


PI i*a 
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itfX .MV 
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GO TO 


m n 


500 PRINT INK LET y =11: LET x-z+r::XEjpflNT; : CRND*31) 

J » A A H HWW —T — - 1 1 1- | ■ r.Alfcir ! IU i h 

5QO ' M R,n,k " . .. "■ »«* 

1000 IF y=20 THEN PRINT AT y,x;" ,f ;AT y,o;" LET y=12: LET x=z+1 : LET o=INT ( 
RND*31): LET f=f-1: PRINT INK 7;AT 1,22;"FUEL ";f; 

1003 LET d=19: LET w=z+1 

1005 IF d=3 THEN PRINT AT d,w;" GO TO 1,500 
1010 PRINT AT’d,w;" LET d=d-1 : PRINT INK 7;AT d,w;"jO' 

*. JDt.1 LET z.==Z+( INKEY$="8")-( INKEYSc'^'J i. -If "z>,29 THEN LET z=29 

‘*4015- IF'^O- THEN LET z=0 “'■{flf. ■" ' ' 

/’INK 4;AT 21,z;"_B_" V 


. .I'll 
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'1020' IF 'POINT (w*8+4,{ (21-(d-1 ))*8H1THEN / BEEP .01,0: PRINT AT d,W7 ***!>©? d*1 „ ■ 

• ’“^;”::meT/p=p+io: print ink 7 ;at. 1 .o,,o;/hhntos ";p: go to 1500 ...Cj.... . 

1022 liFviy-20 THEN PRINT AT y,x;"AT .LET f=f-1: PRINT INK:7:;Af«2'; ■■ 

"m L'«;F;' 1 “* , : LET X=Z+1 : LET o=INT (RND*31T': LET y=12: IF f=0 THEN ’ “GtftfK&a 

1024 PRINT AT y,x;" ";AT y,o;" LET y=y+1: PRINT INK 6; AT y,x;'^';AT y,o;'V 1 

1025 IF POINT (10,158) OR POINT (26,158) OR POINT (40,158) OR POINT (59,158) OR 

POINT (74,158) OR POINT (90,158) OR POINT (107,158) OR POINT (123,158) OR POINT 
(140,158) OR POINT (155,158) OR, POINT (170,158) OR POINT (188,158) OR POINT (203 
,158) OR POINT (219,158) THEN /GO TO 1027 . ■ ' 

1026 CLS : BEEPr^,0: BEEPj>r,19: BEEP .2,10: BEEP .7,19; PRINT INK 7;AT 10,0; 
"Has pasado a la’-siguieht^^fase"; FLASH 1 ;AT 15,T3.;'^B0NUS 5^00 Puntos": LET p=p+5 
00: PAUSE 100: CLS.SWJ’iT'V ?00Q, 

1027 IF (y=20 AND 0 .- 2 +I)'-OR(y=20 AND x=z+1> THEN ,. PR^T’/AT d,w;" ": GO TO 1900 

- __ _ _ _ J. _ -_ 1 -h" b " " .I p - ‘V J 11 


fli 


TO 1700 
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1030 IF INKEY$="0' , ..JHEN 


1040 GO TO 1005 "•'■'JB;"" ... 

1500 IF POINT (10,158) OR POINT (26,158) OR POINT"(40 j 158');™^‘.POINT (59,158) OR 
POINT (74,158) OR POINT (90,158) OR POINT (107,158) OR POINT (123,158) OR POINT 
(140,158) OR POINT (155,158) OR POINT (170,158) OR POINT (188,158) OR POINT (203 
,158) OR POINT (219,158) THEN GO TO 1504 

1502 CLS ’:' BEEP .2,10: BEEP .7,19: BEEP .2,10: BEEP .7,19: PRINT INK 7;AT.10,0’; 
’’Has apsado-'a La siguiente 
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fase";., FLASH 1; AT 15,13;"BONUS 500 Puntqs^ LET .p-p^ 
100: CLS : GO TO 2000 

'"n 904J^>Siy=20 1 AND 0 = z+1) OR (y=20 “AND THEN GO TO 1900 - ’ “ " .. ' 

.A yf20 "THEN PRINT AT 2D,x;-’‘" LET y=12: LET ‘ 
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WIHMWJA-sLET f=f-1: PRINT INK,,,7;AT T>22; "FUEL ";f;" GO TO 1500“ “ --"■J 
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If • W THEN SO TO 350 ,*Jf... 



. t I 


+y..y,*;" ";AT y,o;" PRINT INK 6 ; AT y,x; '^T'. 

"-1$Mu 32&Flfz+.aNKEY$="8”)-(INKET$S"5131^;,lrt>29 THEN LET z=29 
•“’"152'b ■!?'" z<0 THEN LET z=0 ■••“" }‘ “ 

- •l53D:ftj(Wt::-'i‘NK 4; AT 21 ,z;" "V’!*.1 T " ' 

• ".-t550'.- W i 4nkiy-$= ,, 0" THEN SO TO I'lMXJ 
1560 GO TO 1500 

1700 IF y=20 THEN PRINT AT y,x;" AT y,o;" LET y=12: LET x=z+1: LET o=INT ( 
RND*31): LET f=f-1: PRINT INK 7;AT 1,22;"FUEL ,, ;f;" " 

1705 LET di=20: LET e=z+1 . 

I I 1 *■ 

1710 IF d=3 THEN PRINT'AT d,w>" LET d=di: LET w=e: GO TO 1010 

1720 PRINT AT <Lwtf'LET 'd*‘d-1: PRINT INK 7; AT. d*w;"K";AT di,e;" LET di=di 
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H Hi 1 1 ..T^VilgF 

■E *™i Jr \ ■ 

ir " hT % '» i 
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* Hi. 
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El 13U1I c " ■ 

i mil ii n ■ i ■ la a »i! n 


{ r RAIN ! n I QjypW^i ■ Lt I CJ E 

1: PRINT INK-TjjAf 41 ?**$£!• 
1730 LET z=z+(INKEY$=."#‘ i » :£l (Ii\ 

. UU " 1*1 IM C 3 1 


cl ii J* II ci ‘ I 
n ii 

i ■ i an iti 

LIP 


i a Ht 


(INKEY$="5 "): IF z>29 THEN' ,,-LET'‘ 2-29' 
1735 IF z<0 THEfTL^iSO }• /. -*■ 


r 


m 

* 


1750 PRINT INK' '4;AT"21^|jg|; 'B • " ....■-Ww-... 

1770 IF POINT (W*M>‘gS(ri?l , X)*8)+1) THEN BEEP RilN^ '.AT d,w;" M ;AT d-1 

,w;" LET p-p+10:'"PRINT "INK 7;AT 0,D;"PUNTOS ";pi"'LET” w=e: LET d=di: GO TO 10 
25 

1780 IF POINT <e*8+4,((21-(di-1))*8)+1) THEN BEEP .01,0: PRINT AT di,e;" "; AT d 
i-1,e;" LET p=p+10: PRINT INK 7;AT 0,0;"PUNT0S ";p: GO TO 1025 
1790 IF y=20 ■ THEN PRINT AT y,x;" ";AT y,o;." "r-VET f=f-1 : PRINT INK 7;AT 1,22 
"FUEL ";f;" ",d LET x=Z+1: LET o=INT (RND*31): LET y-12: IF f=0 THEN GO TO 3500 
4 „J 8 Q 0 ,PRINT:'AT y,x; 

■“ "V: 1820 -'lT:: J fiy=20 AND o= 

i I cji : r ;» I it I 

1880 <30- J T0 ; : 1710 „ — ttl n ^i \ 

“;AT y,o;" INK::7.;.^1 ,z+1;X: BEEP .01,0:. BEEP *.0^71.. 

^ : -B5SfiOTfcM2*^PRINT INK 7;AT 21 ,zft, :: iW«U?E;''25: PRINT AT 21 

-1: . PAUSE'"150: PRINT INK 7;AT 0,23; n VIDAS ";v: IF v=0 THEN PRINT INK :;; 5;AT 10;' 

3;"Has acabado tus naves": BEEP 2,-10: GO TO 3500 
1950 PAUSE 100: GO TO 500 

2000 LET mis=30: LET d=5: LET w=5: LET impac=0: PRINT INK 7;AT 0,0;"PUNTOS ";p; 
AT 0,20;"VIDAS ";v;AT 2,20;'.'MIS-ILES ";mis;AT 1,0;"RECORD ";r;" por ";a$;AT 2,0;" 

GGG G G G G G HHHH H HHHH HHHHHHH 


" ";AT y,o;" "^Lit-y-ytl :,. Pt?INT INK 6; AT y,x;"D. 1 ’; At y,o;."£^.y 
0=2+1) OR (y=20' - AND" x=z,^ffl 'THEN PRINT AT d,w; "'^T'dl ,e;^: . 

... -V .. -•*" W,... 
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1)1 ,.i*f n ; « | 
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- yy 


U I 
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2002 IF p>200 TffEN-:',LET”^» 

2004 IF p>4000 THEN Wisp'S 0 

2006 IF p>6000 THEN.J'LET'rflii 5 - 6 0 

2010 LET 2=15: PRINT:.Vin#|>AT:.1 8,2+1 GO TO-2020 -... >; 

2015 PRINT AT y,xWl ^.'JWllte&I^y+l ,x; "E";AT d,w;;’-"i,;: i PAl>i®^ : 25:: " PRINT INK 6 ;AT 
y+1,x;"F": PAUSE 25: PRINT AT y+1,x;" ": LET impac=impac ! WEPRINf INK 7;AT 2,0; 


miiT.ii' 111 ■„ 

c'ltL 


"IMPACTOS ;impac 

2017 IF impac=10 THEN GO TO 3000 

2020 LET y=4: LET mis=nnis-1: PRINT INK 7;AT 2,20;"MISILES ";mis;" ": LET x=INT. 
(RND*2.9)+1 ' ") 

2,025 IF „is-Q/THEN CLS : PRINT 

■ .rjJF " ■ ■■ 


K J;AT. i .10 y 0;"Has pasado a la siguie,n;te fase M ;A' 

BEEP ::.:7>1,9:-LET: p 


FLASH 1;AT 


^.:12;5,;.^NUS "50D Puntos": BEEP BEEB^f,19: BEEP .2,10: 

1 ?: , i=p+$Q0T^MUSE“25: CLS : BEEP .1,9:" PAUS| 2;0: !fi 'BEEP .1,9: PRINT 
„,..L'A"TflM^JpANitADO": LET v=v+1: PAUSE 150V" Cl:S; ! : .feo- TO 400 
-2040 "RRiitNT-AT, y,x; " LET y=y+1 PRINT 1 '7; AT y,x;"I";AT y+1,xs''J 
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INPUT 25 
















*#&-**£& j° 2 4jr.... - - y 

2055-upe'S=t+(INKEY$="8")-(INK£Y*a , . , 5 , :>:■■fWs:>29 THEN LET z=29 
’' THEN LET z=0 Qi-Zv^ - '. ’’ 

"■■‘2075 PRINT 1 " INK 4; AT 18,z;" B_ ‘ >■£ i- ” ' 

■ jm:: §*$="0" then go to 25oo. ■ ' 

• 'u.20911’ mwM.' 'f v::.- 


**\% 
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H ! 


iff t 


2090 lJfpK£X$= ,, 0" THEN GO TO 2500 

■■ >«»"■ . ,.m pi u ni im m w ** i j qtm p i 

2110 IF y=18 AND x=z+1 OR y=17 AND x=z+1 THEN GO TO 8500 
2117 IF y=19 THEN GO TO 2015 
2200 GO TO 2040 
2500 LET d=17: LET w=z+1 

2520 PRINT AT d,w;*’ .LET d=dM : PRINT INK 6;AT d,w;"K" 
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2530 IF d=y AND x~w OR d=y+l--AND x=w THEN PRINT INK 2;AT y,x;-' J ";AT d,w; f, E": 
AUSE 25: PRINT«„-INK 6;ATi^w;'IT': PAUSE 25: PRINT';AT d,w;' ! ;. ",:"l r ET p=p+50: PRINT 
INK 7; AT 0,0; 'WNfta 4$^-, GO" TO 2017 I"-"' 

_- ~ __ m ... H-VnCC 1 ! _ E. _ thi: Jr. 

, JL K J< 


/x>'* LET y=y+1; PRINT INK 7; AT y ,x; "'r^AX' y+1 ,x; "J" 

FN Go ir’JEp'n.'fq . Tjif. ... ... “** 

F iwn n H HI Mfe Id fi El 31 " a| Ma Jl 1 w inr|P ^_ . •* 
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2532 IF y=19 THEN GO.i’TO 1 2015 1 
2540 PRINT AT y 
2550 IF y=19 THEN 
2560 GO TO 2520 

3000 FOR y=21 TO 1 STEP -1: BEEP .1,y: FOR g=1 TO 9: LET x=RND*31: PRINT INK 6; 

AT y,x;’2J': NEXT g; NEXT y: LET V=V-1 : IF V=0 THEN CLS : BEEP 2,0: PRINT AT 10, 

0; INK 7;"Te han matado todas Las naves": PAUSE 100: GO TO 3500 
3010 CLS : .PAUSE 100: GO TO 2000 

3500 CLS : IF'p>r THEN PRINT FLASH 1; INK 4;AT 15,12;"Has conseguido eL";AT 17 T 
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‘it, JQ 5; "RE CORD*'': GO TO 3520 . 

255*0 -" 

OTT ’"ESCRIBE TU NOMBRE (Con med^'^^-car 
3530 «Ir4eN a$>6 THEN GO TO 3520'" ’ 4 •'& 
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,3§w. . J5m “P , ,. ,, -• ■ ’ ■ jMjJf' -« 

-S 03ft' Jtl® 1 Sir SPRINT INK 5; AT 10,0; "Quieres jugar ptra parti da (s/n)" rjmf: :'; M " ■ 

"3560 IF’TNKEV$="S" THEN GO TO 250 ' ... W ‘ ,J » 
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3570 IF INKEY$="N" THEN NEW 
3580 GO TO 3560 

8500 PRINT AT y,x; n AT y+2,x;'’ AT y+1,x;" INK 6;AT y,x;’^': BEEP .05,3: P 
AUSE 25: PRINT INK 2;AT y,x;"i/': BEEP .02,1: PAUSE 25: PRINT AT y,x; N LET v= 
V-1 : PRINT INK 7;AT, 0>20;"VIDAS ";v: IF v=0 THEN PRINT INK-5;-AT 15,1;"Te han 
matado todas LaSb^Ves 1 ’,:" BEE,P'2,-10: CLS : GO TO 3500 ■ 

8510 GO TO 2010 J.. 

■■ 


9000 REM ***GRAFrCOS***;;!/5; >; -, ■ 
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9010 FOR f=1 TO "TO: READ b$;'FOR n=0 TO 7: READ s: POKE -USR b$+n,s: NEXT n: NEXT 

P.I, t'" 1 " * ; r I 

9200 DATA "a",0,126,:25'5#0P55>126,24,O 
9300 DATA "b",16,16,40,56,186,186,254,186 
9500 DATA "d",129,129,129,129,129,129,129,129 
9510 DATA "e",0,18,56,108,56,16,66,0 
9520 DATA '^",0,0,16,40,16,0,0,0 
9530 DATA V':,24,24,24,170,85,170,85,170 . • ■ ' ' “"1 

9540 DATA.. M h*',85,170,85,170,85,170,85,170 . 

„/%.9545" D:AT l A." ,, i ’’>16,56,16,254,124,12^24,56.^ .y*"“„„» 

;95'5p-,56,56 ,56,56,16 ,16 ,46 _ .,J$A ..... - 
9560'"'DATA i"k’ ! >16,0,16,0,16,0,16,0,.-" V" ' . ■■ 

9570 : return.,, 
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PROG RAM AS: Una vez desarrollado tu programs* 
que debe ser original y no haber sido enviado a ninguna 
otra publication, puedes enviarnoslo aqui grabado en 
cassette, diskette o microdrive. Es preferible que vaya 
acompanado por un listado de impresora, pero no es 
imprescindible. 

El programa habra de venir acompanado por un texto 
que aelare cua3 es su objetivo, el modo de funciona- 
miemo y una explication del cometido que cumplen las 
distintas rutinas que lo componen. El texto se presents- 
ra en papel de tamano folio y mecanografiado a dos 
espacios, No importa que la redaction no sea muy clara 
y cuidada: nuestro equipo de expertos se encargara de 
proporcionarle la forma mas atractiva posible. 
ARTICULOS E IDEAS: Se aplica lo anteriormente 
dicho para los textos que acompanan a ios programas: 
es derin conviene detallar al maximo lo que desees que 
aparezca publicado en la revista, de la manera que te 
gustaria que otra persona hubiera explicado eso mismo. 
UN JURADO propio decidira en cada momento que 
colaboraciones reunen los requisites adecuados para su 
publicacion, y evaluara la cuantia del premie en metali- 
co al que se liagan acreedoras. 

No olvideis indicar claramente para que ordenador esta 


preparado el material, asi como vuestro nombre v 
direccion y, cuando sea posible. un telefono de comae- 
to, Em re todos los trabajos recibidos durante cada mes 
SORTEAREMOS: 

• Un premia de 50,000 ptas, 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas, 

en material microinformatico a elegir por 
los afortunados, 

jNo os desanimeisl, por muy simples o complejas que 
puedan parecer vuestras ideas, todas seran revisadas 
con el maximo interes, 

INPUT SINCLAIR 

Alberto Alcocer, 46, 4.° B 
28016 Madrid 


NOTA: INPUT no se responsabiliza de la devolution del 
material que no vaya acompanado por un sobre adecuado con 
el franqueo correspondiente. 
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1 juego se desarrolla en un tablero de 3x3 cpn 
caballos negros. Se trata de colocar los dos caballos 



os rosas y dos 
psas en j$||pltio donde al 


'-m'feii'V 

■ I |ii 11 j j 


incipio est&n los negros y viceversa en el menor ntuaero 

fijdSiui. Jiir posible* ii™ iJHHbw. 
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b jliliMH ji" i.., iii? Mil J 
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movimientos 


Cada jugada corresponds a un solo movimiento de cualqulera de los' ;; caballos pero 

, , ______ jm « w mm 

e i omrs-r a r a cnof a nnn al mov imi sntA rlol Ha 1 1 ft n A al anra? _ i! 
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siempre respetando el movimiento del caballo de ajedres, 

llnr 


J 

if] 

ill 


1 111 


ijPara mover un 


;r 


, teclea la casilla que ocupafuMolumnaV1 lnea) y 

ifl'. n-iiTi mi !iri ill 


Ijmfflji; 

la casilla 


donde lo pondrAs. SI te confundes puedes borrar con 0. Flnalffiente pulsa ENTER 
No se puede lr a una casilla ocupada por un caballo ya sea del mismo o de 
diferente color. Cuando logres el objetivo, el programa te avisarA. 

Para que lo tengas claro, al lado del tablero, hay otro que te indlca la 

iar. 


■ mm ■■■ ■:* • : 

hm riina I T 



poslcidn a la que *.uj . 
Explicacidn de; las rutinas 


De la llnea 1 a la 620 se hace la a presentac16n incluyendo Instrucetones, los 

grAficos definidos y el cbdlgo mAquina que,se utillza en dicha presentacldn 
_, _ , ,_ „„„ . , _ jJfel'ius _— .»_x- *•<_<__ 


: U. 



iHH 

l J h| llflii'li 


juego 


eros y demAs elementos que 


De la llnea 750 a la 980 ?e . 

intJteben eft, 

De la llnea 1000 a la 1840.estA la rutina principal. Con ella se imprime el 


iS&H 


movimiento y se realiza. No se lmprimirA un caracter que no corresponda en cada 


:l||l! . JHUl-lH'hiiUi I|;| 


momento (ej. un ndmero llantes que una letra), ni tampoco un caracter que no sea 

!:: 'i|i l-'l rii|l|?T .r 1, l| : ,|l 

“L Wv^una casilla (e j . d ). 

Una vez pulsado ENTER (llnea 1330) se moverA un caballo siempre que sea una 
jugada ’legal*, en otro caso rechazarA esa jugada y marcarA M.ilegal volviendo 

comienzo de la rutina. 


Si no consigues el objetivo vuelve a repetlrse la rutina y si lo consigues pasa 
a la flnalizacidn dondi&lte avlsa del fin y te ofrece jugar otra vez (llneas 1860 


a 1970). 

De la llnea 2500 a la 4200 estAn las subrutinas de las prlmeras llneas (GDU y 


MifPSr 

Wliffik 


m| C6digo MAquina), 




iill nil 
run— , IW1F 
dm US 

flpm 
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*+** 


3l! REM AUT0RA....MARIA LUISA CUERVO HERRERO ** 

ifJiiHnr = rj2T» illr Ir#l« 


M TE,. r . 

% M I , 

10 CLEAR '! 

_ . . u M fHJhfl <i :-n; 

#».. '5M 
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RntfSBJEftlK 1: BORDER 6: BRIGHT 0: CLS 

m ^ m illKl'Wi:, 

30 RANDOMIZE % 
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MAQUINA ***************************** 


40 REM GRAF I 
50 GO SUB 25 
100 GO SUB 40 


mmm 


ISO 0IMiiC$C5>3):tLET C$(1) 

Wb||||l,|fe$(2 r pplET B$C1) _ _ 

200 REM PRESENTACION *********************************** 

r\ i*v iPv |“L sm- fe. I k / ^i. IF* 1 <1 F^ - *4 H 


LET C$(2)="BCD 


220,BORDER 0: PAPER 0: INK 4: BRIGHT 1 
225 'FOR N=30 TO 55: BEEP .03,N: NEXT N 
230 FOR 29 STEP 4: FOR X=1 TO 2 

240 FOR MB TO 24 STEP 8: FOR X=1 TO 5 
NEx||X: w hWEXT M 

245 PRINT AT 6,0; INK 2;"5555555555555 

. i>/\ l[iKr ijjr jHi 


X: NEXT M 
C$(X);" 


PRINT AT 15+ 
PRINT INK 5 


6666666666666666666666 


A 3. 8888 _ 8 _ 8888 8 8 . 

6666666666 " 

280 PRINT INK 1; PAPER 5;;AT 19,0;"* MARIA LUISA CUERVO HERRERO * 
290 PRINT PAPER 7; INK 2;AT 21,0;"* Necesjtas i^strUeHones?(S/N)* 

vnn I I-T II Li. .IWWIfWTr 

300 LET H=66 j nilL^ M BP 

320 LET H=H+1 : IF H=72 THEN LET H=6illl!lilllilP' 1 "'® 

330 POKE 23296,H: RANDOMIZE 
350 FOR N=1 TO 4: BEEP .05, 

400 IF INKEY$="n" OR INKEYS 
410 IF INKEY$ =,, s' r OR INKEYS 
420 GO TO 320 

490 REM INSTRUCCIONES ,***** 

500 BORDER 6: PAPER 6ff|NK|g 
510 PRINT PAPER 5;AT 0,9;" 

520 PRINT AT 2,0;"Debes coll 1 


USR 60000: RANDOMIZE USR 60050 


BRIGHT 0: CLS 


540 PRINT "Para mover un cabaLLo,indica La casiLla de origen(coLumna,Linea)y La 


de destino (puedes borrar con 0) •finaLmente puLsa ENTER." 
600 PRINT PAPER ^plililpBf 21,13;"PuLsa P" 

610 IF INKEY$BSf?lraIfi«K|Y*="P" THEN GO TO 200 

Iff 


■! i| 1 

Miisli 


620 GO TO 610 

: : I m \ hi iin • 
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TABLERO *************************** 
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l -l i* lil.™, 


*« 


780 «| 
XT Ntf 
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: BRIGHT 1: CLS : PAPER 7: INK 5 
TO 16 STEP 16: PRINT AT N.14:"666666666666 


iri hr 1 Ifii 

hi 1 ' 


': FOR M=14 TO 30 STEP 16: PRINT AT 

. J iPI 


M 


TQ 1Q STEp 10; fqr h=15 TQ 25 STEp 1D; BE 

■ ■! 




rw* 

IE“ 


flu 


Hl j" U hji.,| -r 

Iff: NEXT N: B 


.2,15+N+M: FOR X=1 TO 5 


X,M; '’88888": NEXT X: NEXT M: NEXT N 
0 5: PRINT AT 5+X .20:"88888": NEXT X: 

TO 25 STEP 10: BEEP .2,15+M: FOR X=1 TO JR AT 5+X,M;" 



iJJjltJl 


Nf *NEXT!„KL - « 

820 FOR 'M=0 STEP 10: BEEP .2,38+M: FOR X=1 TO 5 

‘INN ili^L Mt 11 n sTm urnhe 
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"Hi 11 


..Of 
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LINE 



if 


11 


INPUT 29 































































































































































































































































































66666666 


850 FOR N=3 TO TO STEP 7: PRINT AT N.2;"66666666": NEXT N: 

liiJi'li’li '■ ™ ... * __ - __ 

2 TO 9 STEP 7::PRINT AT N,M;"6": NEXT M: NEXT N: BEEP .1,32 
860 FOR M=3.T0 7 STEP A: FOR X=1 TO 2: PRINT AT 3+X,M; PAP 

xTlHsiKiri# V 

870!FOR M-3 TO 7+STEP A: FOR X~1 TO 2: PRINT AT 7+X,M; fAP 
XT WjHHr llflj 

88 i|!!lOR X-1 TO 2: PRINT AT 5+X,5;"88": NEXT X |§pi 

890|F0R M=3 TO 7 STEP A: FOR X=1 TO 2: PRINT AT 5+X,H;|g| l ? 
900i|;;FOR M=^|;:TQ 7 STEP A: FOR X=1 TO 2: PRINT AT M+fc,S$||,f' 

■ 91 d::' FOR N=*38 TO 58: BEEP .01 ,N: NEXT N 
920 : ;F0R N=0 TO 10 STEP 10: FOR M=16 TO 26 STEP 10p 
: PRINT : AT X+N,M; PAPER 5; INK .3*N;C$(X): NEXT X: 

940 PRINT AT 17|13; PAPER 0; INK 6;" A B 
|iAT 13,!tfi; M 1i ";AT^il,1;" ABC AT 5 > 1;"3 ,, ;AT 7,1, 

950 PRINT AT 0,2; PAPER 5; INK V'POSICION'^AT 1,3; 

960 PRINT AT 20,10; PAPER A; INK 0;"MOVIMIENTO-:" 

970 FOR N=25 TO A5: BEEP .02,N: NEXT N 
980 LET J=0 

1 DOO REM MOVIMIENTO ********************* 

1010 LET J=J+1: PRINT AT 20,22; PAPE&iill 
1030 PRINT AT 14,1; PAPER 6; 

,26 * 

1050 PAUSE 0: LET P$=INKEY$: 

A: GO TO 1100 

1060 IF CODE P$>96 AND CODE 
1070 GO TO 1050 
1100 PRINT AT 16,4; PAPER 7; 

1120 PAUSE 0: LET P$=INKE,Y$: 


Wmm 


Irih 


B$CX): NE 


NEXT X: NEXT M 
NEXT''X: NEXT M 

OSffli i"" 

FOR X=1 TO 5 


.2,16+M+N 

! i I i il □ 

: NEXT N 
AT 3,13;" 


NEXT M 

i » 


2"; AT 
FINAL 


******************** 

lPlr BEEP * 2 / 40 

A ?H!SAT 16,A; INK 0;"88888": BEEP .1 

71 f. r r * " ■ 

ft' r „.iH (;! -- 

ijW 

ND CODE P$<68 THEN LET CI=CODE PS-6 


1;CHR$ (64+CI): BEEP .1,38 
$=f|#«|fHEN PRINT AT 16,4; INK 0 


1130 IF CODE P$>48 AND CODE ,i»$<S2fTHEN LET LI=52-CODE PS: 
1140 60 TO 1120 y® r JT lffl HL 

1160 PRINT AT 16,5; PAPJMjfc INK, 1;P$; ”-'f a BEEP .1,58 
1180 PAUSE 0: LET P$=INK£Y$; IF ,RS="0" THEN PRINT AT 16,5 
20 

1190 IF CODE P$>64 AND CODE P$<68 THEN LET CF=CODE PS-64: 
1200 IF CODE P$>96 AND,;,,CODE P$<TOO THEN LET CF^CODE PS-96 
1210 GO TO 1180 
1230 PRINT AT 


INK 1;CHRS (64+CF): BEEP .1,40 
IF P$="0" THEN PRINT AT 16,7; 


CODE P$<52 THEN LET LF=52-CODE 


T ATm16,8; PAPER 7; INK 1;P$: BEEP .1,28 
E Q'i LET P$=INKEY$: IF P$="0" THEN PRINT AT | 

.:. 3 i I! 


340 BEEP Mi 


PAPER 
: BEE 


(5*(LI-1)+1,5*(CI-1)+17)=125 THEN BEEP .2 

ILEGAL": PAUSE 90: BEEP .3,50: PRINT AT'18 

hi i ttfen il 


30 IHPUT 













































































































































































































1400 IF ATTR C 
R 5; INK 2; 

EP .1,4 



m 




CF-1)+17) 0125 THEN BEEP .2,30: PRINT, 
\0SE 90: BEEP .3,50: PRINT AT 18,2; INK >i§I 


;! 


■P3 H ' 


=11 AND ABS <CF~CI)=2 OR ABS (LF- 


i i ’ 




PRINT AT 18,2;' T 
USOjBEEP .2,45 


AT 18,2; PAPER 5; INK 2; M.ILEGALi 
0;"88888888": BEEP .1,40: GO TO 



ilH 

1 


N 


6;C$(X): 


•: IF ATTR <5*CLI~1)+1 ,5*(CI-1 >+17) =104 THEN FOR N=1 
i-D+lif'W': NEXT N: FOR X=1 TO 5: PRINT 


nit 



.3,50: 


5: PRINT AT 5*(LI-1)+ 

,5*(CF-1)+1 


% 


i u(In 


N, 

6 ; 


. • 


ill! 




<5*(LI-1)+1,5*C CI-1)+17)=107 THEN FOR N=T; TO 5: PRINT AT 5*(LI-1)+ 
Hl)+16;"§88": NEXT N: FOR X=1 TO 5: PRINT INK 3; AT S*(.LPW|^X,5*( CF-1) +1 

. NEXT 

5*(LI-1)+ 


li 

- r — * ’ * -fTifc " T 

,111770 I PS ATTR C5*(1I-1 >+1 ,5*C CI-1 )+17)=120 THEN FOR fK 

ij:: I. !• I I : r I. ■■ I ll . 

M r / r* T 4 S \ A £. _ii II* iir-vr hi. CAn V—1 TA Kw DDTMT DAC 


TO 51 PRINT 


N,5*(CI41 )+16; 11 NEXT N: FOR X=1 TO 5: PRINT PAPER 5; INK 0;AT 5*(LF-1)+X,5 

*<CF-1)+16;C$(X): NEXT X 


1790 IF ATTR (5*(LI~1)+1,5*(CI-1)+17)=123 THEN FOR N=1 JO 5: PRINT AT 5*(LI-1)+ 


N,5*(CI“1)+16;" NEXT N: FOR X=1 TO 5: 

*{CF-1)+16;C$(X): NEXT X 
1820 BEEP .1,25: BEEP .1,55: BEEP .2,43 
1830 IF ATTR (1 ,17)=107 AND ATTR ,,C 


)=104 THEN GO TO 1870 
1840 GO TO 1010 

1860 REM FINALIZACION ******** 
1870 PRINT AT 14,1; INK 0;" 

TO 1 STEP -Is BEEP .05 *N+40l|U, 
1900 IF J=16 THEN PRINT ; ; PAPife 

111 " “I 

1910 IF J>16 AND J<21 THEN a 

*liii 


; INK 3;AT 5*(LF-1)+X,5 


ND ATTR C11,17>=104 AND ATTR (11,27 



16,4;"88888": FOR M=1 TO 4: FOR N=8 
DER 1 N-1 : NEXT N: NEXT M 

6; INK 1; FLASH 1;AT 18,4;"BRAVO!1!, INMEJORABLE 


II 


M 



jJ|SJ 
n pi-ij 


RINT 

iW. iili l!lt 

. j.™ 
|1BU W 


ER 5; INK 1; FLASH 1;AT 18,3;"CORRECTO!!;D 



UK 

plk M 


; INK 3; FLASH 1;AT 18,4;"BUEEENO, LO 


IliUWI.IJ 


ll 


EBES SUPERARTE" 

1920 IF J>21 AND J<27 THEN tijlPl 
CONSEGUISTE!" 

1930 IF J>27 THEN 
NO?" 

1950 PRINT AT 21,2; PAPER 6; INK 2; FLASH 1;"PARA JUGAR OTRA VE2, PULSA Y 
1960 IF INKEY$<>"Y' r AND ,INKEY$#''in" THEN GO TO 1960 


PAPER 5J INK 1; " 



1970 GO TO 200 



uir 


1;AT 18,4;"AL FIN I!;YA ERA HORA, 


II 


|[i 


ijiiiF5!;Hiuii!i:«ljii|ii;;-iiiluii j| iiitliil 'ij; " 

2500 REM CODIGO MAQUINA **************************************** 


2550 DATA 6 


. jL 1 : !f:■ i 




2570 FO 

2650 D*iA:6,64:, 

_ ■ ...If * 

,240, 

jn 2660 ''RESTORE 2650 


,225,35,197,1,31,0,26,237,176,43 

il p'jl iJ||| f!j 

uiM 1 

jjfcj iin]! 

160024: READ W: POKE N,W: NEXT N 
,80,213,225,35,197,1,31,0,26,237,176 



111 j" 'll 

r* ! i13 
3 


N=60050 TO 60074: READ W: POKE N,W; NEXT N 

utiHi 1 nSiuTn * 


M.l- ;i 

,!| hill 
ij:. 1 


,89,58,0,91,14,7,6,31,43,94,35,115,43, 


m 


4 


nf 


Mil „ lubi 

2770 FOR N-6010Q 




W 

lir-4 



iatlC 


60122: READ W: POKE N,W: NEXT N 


H 



\\m 

pSr 

i 


mm 


liKifc 


m 


if 


iul 


nil, illi 


jm 
m ™ ISI 


.131 


,19,193,16 

f 41 


,19,193,16 


«BHi. 


,43,13,32,242,20 


INPUT 31 






































































































































































































































































































2790 RETURN 
4000 REM Gr. 


4110 DA' 








1 lfljj 

i _ 


************************************ 

Jipo>0 ,56,0,1,7,31,127,127,127,127,126*255 

igS 

28,128,128,192,192,15,1,0,0,0,0,0,0,2 


ni 


. - r ,.,,., 192,192,224,224,224,224,224,240,1 ,3,7,15,31, 
,24l»i252,254 

4140'!;DATA 0,1,3,14,63,63,63,7,0,128,192,96,224,224:; 



mm 


in 2,7>2®,240,240,240 


>1,1,3,7,15,31,31,0,24 


'ffl 


'''' ; 4lii|RESTORE 4110 

4190 TOR ^=0 TO 103: READ Q: POKE USR "A"+N,Q: NEXT N 


hli 


J 


4200 RETURN' 


n h f 


liNli 


mm 


.! P,|t | 'll |aj>i|l!'n|n 

Mm' ■ - ni' 

llirlilhiir 

ill! 


13 


if 


jril 


i’F'! 


[fife 

W 


(iHfl 


■i3i5a 
tlflil ( 


jilPH 


% 


liil 


Bljli 


ft 


ll I II 9 in ni U jli in in il Di IK HI El iH S: in ill Ul 

NIStilSVillflnfltfWBVatlIVtIHIJfl 


ffln 

■ so^U 9 t:uitaoui 91 uos sep 



mm M 

Jft" 


HI B H H E v m Hi |g % HI 


m am nr m or 


a in m 


ap omTUTtn TS ’C-s'l-q^T *£-e'£- o(gf J T-®'£-c|( frT 

iT-o'Z-B(ei *£-q'T-o(£T "%-fi^(TT JP§jii'T-®{ OT *T-Q'e-»(6 *T-«'£-q(8 te-**Z-o(L 

‘-l-v'Z-oiZ <T-q'E-s(z ^-3'l-E(T JNOXOOIOS 


• T-3 J Z-E(9 i£-D'l- 


T- 


it IH... „ 

aj rt t 

— 1 —1 

#% n . iiil* 

- MiTTilP 

i V _ _ _ WU 


If 


1 !, 


I|h 




If 

Fill! 


aafiiaieuiutii ii; at s s m a w to w m ffl. w m lh hi k h u a m id ft m in lil iu R s u rt h ■ w £ a tu a * it & t re dt 31 . 



32 INPUT 







































































































































































































































































































































































































PATRUILA 2-4 
?E VOL ANDO A( 
SIN NOVEDAD 


COMO todas las noches, dentro de unos 

MINUTOS SE CERRARAN LAS CALLES AL TRANSITS). " 

CON E5TA Y CffRAS MED I DAS POLICIALES, LA JUNTA 
DE GOBIERNO PRETENDE ACABAR CON EL PELIGRO 
DE UNA INSURRECTION QUE PARECE INMINENTE. 

TAN SOLO EL CENTRAL TOWN, EL BARRIO MAS ANTIGUO 
DE LA OUQAD HA ESCAPADO DURANTE ANOS AL CONTROL 
POLICIAL PERO AHORA ESTA SIENDO DEMOLIDO - 




TZ7 


COM ESTA COPIA 
DE LOS PIANOS, LAS 
HORDAS PODRAN ORGA- 
MIZAR MUCHO ME30R 
5US DEFENSAS 



ESPEREMOS QUE QUIERAN 
COLASORAR CON NOSOTROS 



EN SU CASA,FRANK MEYER, QUE TRABATA EN LAS 
OBRAS DE DEMOLIOON, ESTUDIA AFANOSAMENJTE 
AWTIGUOS PIANOS DE LA ZONA 


iAHI ESTA! 

SABI A QUE TENIA 
QUE HABER UN 
ACCESO DESDE 
LAS VIEJAS 



INSTANTES DESPUES 
ESTA EN LA CALLS 


INPUT 37 






















































































































































































































































































RXO MAS TARDE, 
CD AN DO LAS LU¬ 
CES DE LA CIU¬ 
DAD HAN SI DO 
ABAGADAS, CUA- 
TRO SOM BRAS 
ALANZAN ENTRE. 
LOS ESCOMBROS 
DEL AREA 
PROWIB1DA. 


E FOR QUE 
NOS TRAES POR 
ACJUI, FRANK? 


/ CONOZCO UN \ 
/ PASO MENOS 1 
PEUGROSO QUE 

J rodearel i 

BARRIO. S 
^DE LAS HORDAS 
NO OS PREOCUPEIS / 


iMUY BIEN.BILL! 
PERO VAMONOS YA. 
NO CONVIENE DES- 
PERTAR SOSPECHAS 


BQUE TAL FRANK? ^ 
ESTOS AMIGOS OESEAN 
HACER UNAS APUESTAS 



iSE ACABO LA EXCURSION 
VEN1D CONMIGO' 


r iMIRADl, LOS 
SERES HUMANOS HAN 
VENIDO A VISITARNOS 


EN EL CUARTEL GENERAL DE LAS HORDAS ^ 
COEXISTEN BANDAS QUE ANTANJO ERAN ENEMIGAS, 
HAY RDCKEROS, PUN KIES, MODS, BAWQUEROS, RAM BOS 


OS TRAEM05 
ALGO 



fU1 

’it -*v Jfl 

'I 



7 \_d; tT 

■ •, • - 




Li 

i * 

Tr 



REALMENTE.NO TIENEN MUCHAS ALTERNATIVAS. 
LAS MAQUtNAS ESTARAN AMI EN UN OS DIAS 
Y ELLOS ESTAN PRACTICAMENTE AfiOTADOS- 


MINUT05 DESPUES 


...NO 

TENEIS 
NADA QUE 
PERDER 


38 INPUT 

















































































































































































































EL GRUPO PR03GUE SU CAM IWO 
POR ALCAN7ARUAS V TUNELES.. 



iALTOi 

EQUIENE5 

50IS? 


SOY FRANK 
MEYER. VEWGO 
CON UNOS 
AM/GOS ^ 




i -1 





Jj 


...HASTA LLEGAR AL OTRO 
EXTREMO DE CENTRAL TOWN... 

-| r Y1 

L V 

Mj§M l 

1 






/ PERO ^ 
NECESITAMOS 
EL DINERO DE 
LAS APUESTAS 
\PARA... > 


C.TERMINAR DE 
EQUifiAR A NUESTROS 
ROBOTS. AUN SON 
VULNERABLES A LAS 
ARMAS DE LA 
v POLICIA ^ 


EN LA A8ANDONADA ESTACION DE METRO 


EN DOS MIWUTOS SE 
INICiARA ELCOMBATE 
ESTELAR DE IA VELADA 


QUlERO 
APOSTAR 
CINCO MIL 


YO 

TAMB1EN 


r TENEMOS x 
POCO TIEMPO, 
TANIA, LA DEMOLI 
CION ESTARA 
AQUI EN UN FAR 
DE SEMANAS 


(FRANK! 
iDE DONDE SALES? 
NO MEMOS DE- 
TECTADO TU 
LLEGADA 




Qo 


QjO 


□ oa 


rt O 


Lr- - 




i v 


TENDREMOS 
QUE SUSPENDER 
LOS COMBATES 


POR ESO HE LLEGADO A 
UN ACUERDO CON LAS 
HORDAS. UTILIZARAN LAS 
ANTIGUAS GALER1AS PARA 
ATACAR A LAS BRIGADAS 
DE DERRIBO Y ESCAPA 
DESPUES. 

ESTO MARA 
QUE SE 
RETRASEN 
Y- 



































































































































































































































































































































































MI&NTRAS, FUERA, 
SE DESARROLLA 
EL ESPECTACULO 
CLANDESTINE FA- 
VORITO DE LOS 
APOSTADORES. 
LOS COMBATES 
DE AUTOMATA^ 


/COM AN DANTE TANIA! 
iL05 SENSORES DETECTAN 
MOVIMIENTO MOTORIZADO 
SOBRE NOSOTROS/ 


Z iALERTA, NOS 
HAN DESCUBIERTO! 
BLOQUEAD LAS ENTRADAS 
SE GRETAS--■ S1TUACION 
DE DEFENSA PASIVA j 


POLICIA FEDERAL. QUE NO 
SE MUEVA NADIE. SI NO SE 

RESISTEN... iCUIDADO/ 
ESTAN ARMADOS/ [ 
i Dl SPARAD/ 


EL PUBLICO DISFRUTA DEL ESPECTACULO ATENO A 
LO QUEL ESTA OCURRIENDO A SU ALREDEDOR 


ENTONCES. 




\ mtnu war Q5 HABE | S 

“A f PORTADO MUY 
UDAD | B | £N( S0 IS 

«- ^ EJEMPLARES. 

VEAMOS OTRA VEZ ^ 
ESOS PLANOS-, 


EN OTRO 
■ EXTREMO 
DE LA 
CIUDAD 




JR ‘ 


4 *> 


40 INPUT 




































































































































li iririu 


i lllPlir 

“l 

1IIHI5WltnRn'i3!*i»hTiiil : !HiltltldllUII» 

isL^aMIISBUEUiiHrtEilit^llIpL 

inlibnSlI’nHnr'i 





IWfPiPlfPfepE 



I ihal£ 
■„ ul «, 


lllii 


iiL:i:;: iJrl 

ur.iiiiii«in.iijfaii 


im>ci ip si 

iiitp_[in 

JltUUjt 


3 

«tnkrS 1 Wi.lai 5 liil 


iiijiiJR 

t-JliM Jl- ' Ir |..^j ItlQHMi l r II ilipii in . 

i»B 


ia sido localizado el Centro Vital donde repostan las naves que saquean tu 
planeta. Conocida tu destreza con los mandos, eres el espectronauta elegido. 

Tu misi6n consiste en llegar al centro generador vital de energla y destrulrlo 

I n v^lR- r (| m n nuju ... ^ 

con tu potente l&ser par.a lo cual deberAs descender con tu ZX-Foro por las 

"M '■ | [h,' 1 " V 1 

grutas que conducen 1 '. Centro, evitando o atacando a los terribles animales que 

» * i • i ! II ’113! 


tilt 


iii tit t 

-it: 

iNinn 


r L ■ j 

^ac‘Ptbfe}!^F«.ba46, 0=izquierda, P=detecha, M=laser, 
an eBMB Si M ^-lsta do, bastante largo,™ 1 * 

LMlhUIMIl'ilV'I'tti!isn irM !3|li?-Lkiwi'ISMi ellf 

iS!|:iif^^ifei|iiiiPiplHpenaladas por comentarios 


I 


las defienden. 

Las teclas de control son: 


Hi iue 

EIUM 


I 

■Liu 


if u:r | J 

I 

1 f \ 


j" 

tu 


SI deseas 



es 


Vicente Serrano 


I=|M ijjjj r|gt [1^1 Ltjj| pjjjj ^1 1^1:|[ji Iijy itjju 1^ i[j4 i[jh itjb i^E tjji i^J 1^ l[j|t :■$ l|jjl t^l -ij]l tjl p[j* tjjjl l[£l t'fc i^t i^i ^1 ^ ^ vj-ji ^ ■$! 3 ^' ‘t 1 J { s 1^ ^ 


tu 


1 REM Centro Vital..1985 

i i jie ur 

5 BORDER 0: PAPER 0: INK 7; 
7 CLEAR 59999 

jinn i; « 

10 , GO SUB 3000 






CLS 


15 "GQijSUB 3500 

iiitamMni«'n - '•jH'Jj-lil|kuj : itaijmtit 

■ 20 GO SUB 4Lm 

e i is . : :iflj 'i, j :: r s! ■ i i ! 1ll ■ ! . in : : i>i, « : • . : 



im*" 

linn 

r ia "■' i -i 

■ 


]'"’j 


i I Ii 


.v r. 


ilna - I 

Ur 


,r4q 


■ IjI 


i. 




!i 


pltih i si 

(L.II | .,«,..lnEILui_ir:_::i .5; IllZi: -Ii-ldi3:_ jl:| | ,■[ ,• , iUI«lii=L:jii.j3;- i ULI !l 


' 1 1111 ■ :~i»ii :s :iiji 

25 CLS : : 60 SUB 2000 
'30 'BORDER C: PAPER 0: INK 7 
50 REM Bucle Central 1. 

52 PRINT AT x / y;a$;AT x+1,y;c$;AT x1,y1;" AT xl+1,y1;’ 
54 FOR j =29 TO 0 STEP -1: RANDOMIZE : LET ino=INT (RND*10) 

56 PRINT INK 6; BRIGHT 1;AT 4,j;g$: PRINT AT 4,j+2; N 

57 LET t = t+1: GO SUB 610 

58 IF X-14 THEN NEXT -t GO'TO 110 

n • J stirr 

60 BEEP .004,68-J: BEEP 1 ,003,40+J 
65 GO SUB 500 


IT'- 

U1J " II- IIUU LUIS**) film ,,|! 1 1 bljL|-|norB||.MIL,, IL.-I. 

i]iJJiJtiiifi 4 j E jtyiiiiijjEUi^!l q|id ^=j mk UoiiMirijiidjr^iiiir 
.,, e . 


sasvii 


J ia 




EK 


^if®> 


I 

•ri: 

J Nt 

I S:l 1 


. ■F1 Tr !i 


IS li 

llPH 

s 

r |k, fiM.„ 


■ 1 thru 

1 ns 111 


(x^y)<>?:„ OR ATTR (x,y+1)<>7 OR ATTR Cx+1 ,y+1 ><>7..OR . ATTR Cx + 1 / y)<>7 

802 ■; 55 gltt:te ~ i= j g ~j5»g - ■ 

*»»» "mt&jfay'!" ";AT ».y;.ti-v^ |HSfe^ IIIWT AT 


67 IF ATTR 
THEN GO TO 

71 PRINT AT 
; c$ 

72 IF di=2 THEN PRINT AT x+l/y^S 

73 LET x1=x: LET y1=y 

74 IF INKEY$="M" THEN GO SUB 1000 
78 IF mo>=6 AND ma+1<19 AND ar=1 THEN" LET,, ma=ma+1 : PRINT INK 6;AT ma,pa;k$;A 

T^jwa+I ,pa; 1$ 

y'80 IF ;ma+1 =?17 THEN LET ar=2 




t ccLn 

P..IAI ||] 


ipin 

1 1 ■ 

lllll 




r' P H 


it 

i u i j 

, u J 


h 1 

l 
tu 

Mttx™ 

, ! U ni, i 

„IN IM|C 




i j 1 

- If .1 


a; pa;" 1 


K 82 I'F mo>=6 AND ar=2 THEN PRINT ;AT rr 

1 at tu 1 - 1 , , „ 

,pa;H3t.; LET ma=ma-1 : IF ma=5 THEN PRINT* AT ma+3j,pa 

ItLiiJjUllIlHymy* umiuiiLILitiUUI,. Jp|;.ij.i.ml»UUULIUII iljn MHI rttlM.Jailui i isinnmi^H I HlllilIUIJhi|i! ijiicuuuqqeiqiici,|,|||.[i(|. 

IIII .1 Ini'iuii^^llliill lL;|jui::r:-iii| hip[Ilj,lij|u||rubtltUjUlliHiUhLlll 4 J .,, t irt t 1 rtrttm qfeqn*l MlHHUtttta 11 Ul lij jiijjil! 11 iminni II inilrliLii 

[JliiBIliatHlillibllUBffiilSffti Ma«™wyHHQtldffi)W[a|p l^jl%!lilWUHtiliUilhaiU 


iyiiiiiRjHfha 


i 


li iisl 


Hill 



/ 

* 


INK 6; AT ma+2,pA; IS; A^ma+I / 
AT ma+2,pa; M LElli ar 


H 

• 1 i■ ■ 1 ^ 111L1.111 p■ ■ 1 ^ 1 ■ j■ 11 _i 1 1 j 1 mi mJni, m#T]| ji 

iim*ii,jffiBssiiuuii!i(ij|, iilmoi, nl, J, 


liSEaEHfflyiBiiiii 



Ip 

c|i^miMiiri:iLiU4iaw .l.l iLl:, 

1 ■ 11 1 i^ a 1 1 h p i 1 numirm 

ISii 


JliIjNfiHj JHlItioyiiu-iKhMUriMb 

IsisBiffiPi 


1 


INPUT 41 






















































































































'Ptaatatnat 



mini , 

V 1 


I <"> 


1 ^ IUUI 
i ill: i,l 

H I 


■iH tl LULU: 

1 U u 

! ."H™ *' 

in* i J ii* ,SLld M|i 


tUtfell 
rir m 

h U LUliU 


b" . 


, n,,'” 

7w w t 


Lit 

J im E 


i in Bia 

ir | 


84 LET mbi-mb: LET pb1=pb 

I B 1J |i 11 | U p ® , Utfef| , |J “i_ |“ pu|| ,B | 

( 86 LET mb=mb+(Cx>mb)“(x<mb)): LET pb=pbi+2*( (y>pb) - (y<pb)) : IF ATTR (mb,pfc>><>7 / 

OR ATTR (mb+1 ,pb)<>7 OR ATTR (n>b,pb+1 >07 OR ATTR <mb+1 ,pb+1 >07 THEN LET mb^mb 

~ P -‘ | =-™ n 4i PI >1, ■ JnC " , n.i_ J | |Jl " 1 

*lasi II IPuritl HIM! !tltiliiii.i«k.ilun:3i_ui iHliluii i 


:NrJl?=Tll ; III lULinclir.in::'iir Fj;;L|uinr.mini ii'iipiih 
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1 f LET ob - obi 

MMSSSttpWWS I j || 

90 PRINT AT mb1,pb1; ;AT mb1+1,pb1; 

iikNUuUhHl]H(l[il3n|i09U|P TfH g^a fc 1 ” . ■ ' .1 iy!'Hi ..wit win 11 % , * 

0 ^ aa &MPi|INK 6; BRIGHT 1;AT mb,pb;e$£>WT mb+1,pb;f$ 
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92 IF x=6 AND y=21 THEN PRINT AT 7,15;" AT 8,16;” M ;AT 9,17;" " 

94 IF X=14 THEN NEXT j: GO TO 110 
96 NEXT j: PRINT AT 4,0;" 

98 GO TO 54 

110 LET pat1=1 J ■,. 

112 PRINT AT x,y;a$;AT x+1,y;c$;AT x1,y1; 

120 FOR j=1 TO 4 j: "' 1 

121 LET t=t+1: GO SUB 610 

122 GO SUB 500 

123 IF ATTR 
THEN GO TO 

125 IF y=0 THEN BEEP 1,40: CLS : GO TO 2100 
128 PRINT AT x1,y1;" AT x1+1,y1;" AT x,y;a$: IF di*1 THEN PRINT AT x+1,y 

;c $ 

130 IF di=2 THEN PRINT AT x+1,y;d$ 

131 LET x1=x: LET y1=y 

132 -f'P“lNKEY$= ,, M'' THEN GO SUB 1000 { >,. 

134 PRINT ) INK 6; BRIGHT 1;AT uic,pc;i^'; AT md,pd;AT me,pe;'V' 

,■""138 LET mcT=mc: LET pc1 = pc: LET rrd1=md: .LET pd1 = pd: LET me1=me: LET 

' »l®, i'll i J . . '. . . _ j. 



ATTR (x+1,y)<>7 
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139 'PRINT AT mcl ,pd ;" AT md1,pd1;" AT me1>pe1;" 

L THEN GO TO 1&L ....1 

THEN LET mc=mc+<< WfaJTI Tt* 
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lijklLifliH!! 
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%((x+1>md>-(x+1<J5T M 
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150 LET pc=pc+2*CCy>pc)-(y<pc)) 

152 LET pd=pd+3*<(y>pd)”(y<pd)) 

155 IF ATTR (me,pe)<>7 THEN LET me=me1: LET pe=pe1 
157 IF ATTR (md,pd)<>7-THEN LET md=md1: LET pd=pd1 
160 PRINT INK 6; BRIGHT 1;AT me,pe;"D";AT md,pd;'M>" 

162 LET mc-mc+2*( i Cx^'J>m.p^"(x+1<inc)> 

165 LET pc=pc+CCy>pC)-(y : >pc))) { 

167 IF ATTR (mcipc)<>7 THEN LET mc=fnc1 : LET pc=pc1 

168 IF INKEY$=afe ^ftg^-SUBk1 000 .i „ ._ 

170 PRINT INQaagjgla^^c; -O;- 
175 IF y=0 THOll^pnSiHp! : GO TO 2100 

177 IF y=13 OR y=14 THEN PRINT AT 14,6;" AT 15,5; 

;AT 19,5;" " 

178 NEXT j 
180 GO TO 112 
199 'REM BucLe 2- 

.200 BORDER 0: PAPER Os INK 7 ^ n . 4'“-, 

,.|02 PRINT AT x,y;a$;AT x+1 ,y;c$;ATy^>y1/j'j ";AT x1+1,y1;" 

'i. 205 TORi z=29 TO 1 STEP -1; RANDOMIZE ; LET I rao=INT (RND+10) 
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;AT 18,6; 


f f ii 
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.Jr -f IHtin 

A __ ft n 


t ■>, 


206'LET:t=t+1: GO SUB 610 
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IfCDllM 



6; BRIGHT 1;AT 1^ 
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J2D8 BEEP ;D04,68-z: BEEP .003,40+2 
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• 2'10 ® Z<1&.' AND mo>4 THEN LET ya-ya-1 SPRINT INK 6; BRIGHT 1;AT 2(D / ya; j*H |PRI 

— I — i 1 - r; ' _ jL r _ _ W_ _ _ _ in'" L I J 


r NT AT 20:,ya+2; 


II li 


.. II ic^liif 

i i ■ ■ ■ r ■ I; V J r’jrrl’M 


212 GQi^UB 500 

<R fHpy$|^l|x,y)07 OR ATTR (gjjt 


IF ya=4 THEN LET ya-29: PRINT AT 20,4;" 

LLizuiJiibiiMin ) mliiiiiiinr'iLi"!, im 1^.1 muHnuu i »i>4Ji]l iln 


1 1 


•, TO 802 
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I f f I 

I Oil'll, L 

(iin ClJ 

'IHItPJ n 1 ,ij| 111 ! IILliri: LcLaluktarnilL.ail j Vj |nil"inPriLiiiLi:’n_1|2 ltL i 
-Im1b!ir:nrmri-,iiir|pnnini 1 |i|3i^|^i 1 | 


1 . 


uniiriBurnniBMiim 11 ’ 



WKEiilM * * 

TRi (x+1 , 


;AT x,y;a$: IF di=1 THEN PRINT AT x+1,y 


215 PRINT AT x1,y1;" AT x1+1,y1;" 

;c$ 

217 IF di=2 THEN PRINT AT x+1,y;d$ 

220 LET x1=x: LET y1=y 
225 IF INKEY$= M M" .THEN'" GO SUB 1000 

■n J J rug* I " J’ 

230 PRINT INK 6;/ BRIGHT 1;AT ma,pa;e$;AT ma+1 ,pa;-f$;'AT mb,pb;"D";AT mc,pc;i$ 

__ _ . . j. _ n v j __i'_ ___ l“ u..,l I i? 
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JJ ttrtrrt 

!1 li 


I- ILHf! 

Pir 


NEXT z: GO TO 300 
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pb1=pb: LET mcl^nnr 
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ma1=rna: LET 


if 
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:i !E:ji.LfllH”-JULii 
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235 IF x<=16 THEN 
240 NEXT z 
245 PRINT AT 

Hunfllnlmii I iiii' s Ji!i u inu| | | 'j" |li’|ji”nnu. iHHittHFi^ui: 

250 GO TO 

SpillilllLlLlUHHU!* !• iu ii !rr ■;-jtif - -Ji--ji ^!l:! ';JL:: !UdfI[|L!:i J * 

300 LET pat2=^: SS tgT::i:.r J l5l:iirtb;i!pfLE' 
pa1=pa 

304 PRINT AT x,y;a$;AT x+1,y;c$;AT x1,y1; M AT x1+1,y1;“ 

306 FOR j=1 TO 4 

307 LET t=t+1: GO SUB 610 

308 IF x=14 OR X=13 OR X=12 THEN FOR n=0 TO 2: PRINT AT 4+n,20; 

"li NEXT n: PRINT AT 10,25;" " i 

l lia iJ: iF w BJ| i f ^Emti 

309 GQ-1 SUB' 1 500 7”n " } 

■ 310 IF ATTR,(x,y)<>7 OR ATTR Cx,y+1 ><>? :.OR ATTR (x+1,y+1K>7 OR ATTR ,,£x+1 <>7 ., 

THErtb T0C802 M] i‘ i' «l 

r I p Hh i I I =i l 

31.1 : IF :X<=0 .THEN NEXT j: BEEP .1 ,40: CLS ij'l.GO TO 2200 

UlMMItal^iliUiuSiHlihiiiinnuiaiii r.ini UiUh 'i ■ . . . .• I IMli«risv>t|:Mi<i »rii-'.' . ^ _ 


If It 


;AT 9+n,24;" 
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r.isn II Im! 


ranAjiilili-iiir 


;c$ 


: 3 Hrjrnrs:TiElzpj rfivnininrinfini 
?!U::n lULipn;- 


xl,y1; 


nari| 111 .1 jn 

■ : , V * * 


!|JUUI|I|MIIU-niii jji, ! . 

% Y Vi■ ' - ;m 1 i X * V 1B ' 

=2 THEN PRINT AT X +1 .yJS 1 ** 1 **" 


IF di=1 THEN 
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IIIHIUH.IlMMLuidngHHIHL.1^1! 
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.li m ^ tl Mtiul 

-i. “ tt - 


1 I? :ai 
I^IW MS. 


ihpjiliHIKUKUiUI 

^I’flhrjr t JJUU kllf M il I 
; jHi: v.; tlil4HflLiii 


316 LET x1=x: LET y1=y 

317 IF INKEY3= ‘’W THEN GO SUB 1000 

320 IF x=14 OR X=13 OR X=12 THEN FOR n=0 TO 2: PRINT AT 4+n,20;" M ;AT 9+n,24; 
NEXT n: PRINT AT 10/25;" " 

322 IF RND>.3 THEN . GO TO 342 ' n-, 

325 LET mb=mb+( (x+l^hibJ+Cx+l<mb)): LET mc=mc+C (x+1>iifie)-<x+1 <mc')) 

.n . n ■' h 11*41 |f!i J l i « _ f 

327 LET pb=pb+2*C(y>pb),t(y<pb)): LET pc=pc+2*( (y>pt)-(y<pc)) '\ 

330 IF ATTR (ntbipb)<>7 THEN ’LET mb=mb1 : LET pb=pb1 / '"f \ £ m 
332 IF ATTR riTlTniflT.lffi fTTf ^ /PC+1)07 THEN ' LEI LET pc=pc1 

335 PR1NT 1 ^fiB Bi«Eieg >>pb; 'V';at .iiPEf 8 ® 

337 PRINT AT ati1i nilTAt|iMlw 1 '' >c1 ' . . iifcsi 

340 LET mc1=mc: LET pc1=pc: LET mb1=mb: LET pb1=pb . 

342 LET ma=ma+<Cx>ma)-(x<ma)) 

345 LET pa=pa+2*tCy>pa)-Cy<pa)) 

347 IF ATTR (ma,pa><>7 OR ATTR (ma,pa+1)<>7 OR ATTR (ma+1,pa)<>7 OR ATTR (ma+1, 
pa+TJ!K>7'.THEN LET ma=ma1: LET pa=pa1 
350 PRINT AT mal ,pa1; ; AT mal+1 Mfli 

,,'■•352 PRINT ’'"'INK 6; BRIGHT 1;AT ma,pa;e$;AT ma+1,pa;f$ 

355 ,-t^n mal^ma: LET pa1=pa 

:j.G0 TO 2200 
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357:. IF x<=0 THEN NEXT j : BEEP 1 ;40: CliS 
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365 GO TO 300 
; 399 REM Bucie 3. 

400,'BORDER 0: PAPER 0: INK 7 

>-y;a*;AT x+1,y;c$;AT x1,y1;" ";AT xl+1 ,y1;" " 

rsSauah^ T0 16: randomize : LET Inn: crnd*io) 

1,1 — 'io wmmBgfm mm 

5 PRINT INK 6; BRIGHT 1;AT j,20;k$;AT j+1,20;i$ 

417 BEEP ,002/30+j: BEEP .004,40-j 

420 IF j>=10 AND mo>4 AND ar2=1 THEN PRINT INK 6; BRIGHT 1;AT ja,17;k$;AT ja+ 
1/17;h$: LET ja=ja+1 ^ 

425 IF ja=18 THEN LET ar2=2 

430 IF mo>=4 AND ar2=2 THEN PRINT ;AT ja+3,17; M 
1/17;k$: LET ja=ja-1 r IF a=2'iTHEN PRINT AT ja+3/17;" 1 ";AT ja+2,17;" LET a 
r2=1 S j \\ K.. / /$ C„ 

435 IF j =16 THEN FOR n=j: TO 2 STEP -1: PRINT AT n+1/20;" i^JOR m=1 TO 2: PRI 

. __ ::in!jLiliK'limmBUIItr III' K HHIIi 

NT INK 6; BRIGHT 1; 

NT AT n+2 
440 GO SUB 500 

445 IF ATTR <x,y)<>7 OR ATTR (X/y+1)<>7 OR ATTR (x+1/y+1)<>7 OR ATTR Cx+1/y)<>7 
THEN GO TO 802 

450 PRINT AT x1,y1; n ";AT xl+1/yl;" AT x,y;a$: IF di=1 THEN PRINT AT x+1 # y 
;c$ 

455 IF d.i=2 THEN PRINT AT x+1/y;d$ 

T' '1 ... 
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iiipnRt 

mm « 


;iINK 6;AT ja+2/17;L$;AT ja+ 


; BRI GHT^'^niiisaslIjjV £ RtNp"ffi5 : AT n#20;k$ j ;AT n+1,20;i$: BEEP; >010/20+] 

rl°i nn nnWii * mm 
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460 LET x1?x: LET y1=y 
.• 465 lTflNKEY$= ,, M' 1 THEN GO SUB IOOD'h' 1 
j' 470 IF x= 17 AND y>=26 AND INKEY$=”M" THEN FOR n=100 TO 60 STEP -2: OUT 254/n: 


j 


•. RANDOMIZE USR/60050: PRINT AT x,y+2; M • PRINT AT x,y+2;" NEXT n: ,G0 

rnt' - nmumu. HUM 
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499 

500 
505 
510 
515 
520 
530 
600 
605 
610 
612 
615 


LET di=1 


REM Movimiento. 

IF INKEY$= ,,,f THEN RETURN 
POKE 23658/8: IF INKEY$='’P" THEN LET y=y+1 
IF INKEY$="0" THEN. LET y=y-1: LET di=2 
IF INKEY$="Q" THEN > LET.x=x-1 

JHa l |fi L= * ill 

IF INKEY$="A" THEN LET x=x+1 
RETURN i H ilji 

1 r’Drari.i i 

REM Puntos,Energia,Puntos:. 

PRINT #0;ATJfL47;"REC0RP="jre 
PRINT #0; mmSMSagSUSSL 2 ; ’ 1 'ENERGIA= ^"; en;AT ,0 Mi 

— _ - r* l4illUi ! ji'.Fr /V/V.'i • 


I: |1 ldluu 


up'": 
r | n^i 
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iu Lflli 
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J R l5r#0; 





620 RETURN 
800 REM Tropiezos. 

802 IF ATTR (X/y)>128 OR ATTR (x+1,y)>128 THEN LET en=en-20: GO SUB 610 
805 "IF ATTR Cx,y)>7 OR ATTR (x,y+1)>7 OR ATTR Cx+1/y+1)>7 OR ATTR (x+1,y»7...THE 

N ....BEEP i}20,3O+x: LET x=x1: LET y=y1..J ’>• ,J >1 ■>“%, 

81.0 If iATTR Cx+1,y)=70 OR ATTR <X/y)^0 THEN LET en=en-20: GO SUB 610: / 

(,815 pat 1=0 THEN GO TO 71 i. /fcj | ) 

i ' 817/IF oat 1=1 THEN GO TO 128 "" l. .[ \ ( 


H 


817 a F pat1=1 THEN 

„ mis m ? 

. 0->n TC — 1 2=0 then GO TO 215 
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m 


ISaBi 


Ih,ra i« w 

tH.l 3 ntruiHULJUdL 3 - 4 n| 4 :iCmilU!lziiwi'JI 

■ 1HM1> m-Ibliiii n iiz.|azi| INI ii, :,nriL|i r ij !,J| 

IM|imiitii!HiptiLjaE»iil 
iMUWrinniuii ’fimjil. 1 


I. 


1 j'T I'inri. Il!jL i;j 


HiltuiLirduUlUililLHKH j L|l ^ I j jl^iJ ( 

hhwhHw 


fHl 


llrlll 


44 INPUT 
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H 


ihnm 

jNs til 

■ ILII 


1 1 - 1 7 


1 . .IBK - 

i feii. Mn 

! " 



A 

^ nil- in 

H 

rj ii.* j 
f n J 

4,29;" " 

j 1 h us , 

r.f' ,»«* 

J .Mini 

Is ins 1 

1 3 

inii- 


l l 1=11. 


j '"hi 


it 


f I If 


V 

npntMiaiiid 

gLfHWiM 


IS 


J 

4 ! mu 


A 

Jt 


;AT 5,31;" At 6,12^ 



uuuuUJun ir=r:|:;i|i|pi.||; l iii||| A ii IB ihjf Kj -IrliJfitaiU!-.LiiiLiJiLMiauDLl 
runmipn ipniri .i rmilPIAlftlllliijLfiipiLLiu 1; :i iuiii^i iiniij i(i||MH 

- 1 > misnur.i iprii n 1 , 


>31;" " 



AT 6,31; 

ifltiu w inn 1 L -, fitit,,. n 

" ■ AT 7 7 * "■• ” • AT 7 .9 *T;t, 

Sam»l|EW,2;b$( TO 5);AT 8,9;": ";AT 8,21;" 

202(S..WtINJ<JlT-.9,2;b$; TO ?);AT 9,20; v < . 

2022 PRINT AT 10,2;b$C TO 7);AT 10,20;b$( TO 7) 

2024 PRINT AT 11,2;b$C TO 7);AT 11,14;b$( TO 12);AT 11,31;" " 

2026 PRINT AT 12,2;b$C TO 8);AT 12,13;b$C TO 6);AT 12,22;" AT 12,30;" " 

2028 PRINT AT 13,3;" ";AT 13,6;" ";AT 13,12;b$( TO 6);AT-13,23;" AT 13,30;" 


I mill 


M. 

* y 


r t 


I 1 " SLiilb 


II II 


Jim- 

■Hi; 

rj fcLd 


f 1 iii-U 
I M- =ri 


i r 

ii 


;AT 14,31; 


Uj 

-ill 

—|« 

■ • U ,irT a 

11 II 


„rJi] 

* i: ii J| 


r . IllLii 

l ( I ll l|J 


£ll' 



2030 PRINT AT 14,1T;b$( TO 6);AT 14,24; 

2032 PRINT AT 15>10;b$(cr0 6);AT 15,25; 

2034 PRINT AT 16,2;" j‘ ";AT 16,12;" AT 16,15;" ";AT 16,3 
2036 PRINT AT j®ifAT 17,31;" " sliiii;—! ii || n i r ieieiii: i | fllxl 9 L Ictu 

2038 PRINT AT 1S,21;” ";AT 19,20;b$C TO 4); AT 19,111™ 


2040 PRINT AT 20pii|i|piSipii*|b$^ TO 6);AT 2Q,2ipl®ifcf 
2042 PRINT PAPER i; INK 8;;AT 21,0;bS( TO 5); FLASH 1;AT 21,5;"BBBBBBBBBBBBB"; 
FLASH 0; AT 21,18;b$( TO 13) 

2050 PRINT PAPER i; PAPER 5; FLASH 1;AT 6,14;'HT; AT 7,15;"LI";AT 8,16;"U";AT 9,1 
7;'^r';AT 10,18; "UJ 1 

2055 PRINT PAPER i> INK 5; FLASH 1;AT 14,^6; AT 15 ,5; "UJ 1 ; AT 17,5; ’HT; AT. 18,6; 

'if 1 V* AT ‘1 Q 5 - r, |J ,f f ^ ...r" 1 " 

LET X=f1 : LET y=0: LET x1 = x: LET y1=yLET/di=1 ,V”. 4 

ii I i -I” if snr 1 a 


f I 


lISL.JJ 


I “|C|I| 

k. IN 311 
iY L 


:ji trill 


LET ma=5: LET pa=28: LET mb=8: LET pb=11: LET mc=18: LET pc=3: LET md=19: L \ 


IT 

'bli 


*“ET pd=iT \ ■■■-. I- I I. 

2075 LET::j££ 15; LET pe=1: LET ar-T: LET patl-0 


t 

□ h 


.ritn 


,-It| 

1 1 ii r • 


-Hi =-.i=iim£ 


L.Jlil 


I 


I l 


J. 


ER 0; INK 6; AT 3,21 20,27; j $ 


■.ii iiiiLiBvn=:3lElipr|*„i|fil[i| II "il il l! i ■ ; = I ■ 1 -■ , . iijhit ■ -ii 

2082 GO SUB* 


15 


F1SI V-Hnnm ■ri 





'-Jr.ilHi :)jli| ■' ;| ||!| t|‘ | j;^| idl|:|.| 

iLLIthLi^t'in-l. IjdiLl. 


iLi::, I j||| 

II1H f It 

t»rHii:l>jiLUi;i^iprLmcuiuiii.uMimci •!j[|i‘[|i,i;-.:ijnLihH!L-jLi.j- :uin r.ii 

1 ii'i il< ‘ |l 4 1 |::Lj:,:ilsll| I i.i ![ji ll ll-,- 

jrir J 







Klrfij. 


\m 


J ,!lI 




2099 REM 2 PantaLLa. 

2100 LET b$= H 11 

2102 RANDOMIZE : LET i=2+INT (RND*3): BORDER 0: PAPER i: INK t 
2104 FOR n=0 TO 3; PRINT AT n,0;b$C TO 5);AT n,12; H ,, ;A^.n / 18;" H ;AT n,31;" ,f : 

NEXT n J' ^ f 

j J HH t P 1 , j_» I - I II j 

2106 PRINT AT 0,5; "J AT 0,8;" "; AT 0,17;" "; AT D,20;b$( TO 11) 

2108 PRINT AT 1,9 ' "/AT 1,28;" ";AT 2,5;" ,r ;AT : ";AT 2,14;" ";AT 2 

,27;" ";AT 2,31>" " / M, \ /' f \\ < 

2110 PRINT AT »:AT 3,20;" ";AT■ 3,26;^::q#iAT 2>31; 

2112 FOR n=Q " ";AT 21 ,14+n;" : 1 NEXT 

2114 print at ; at n mmSS 

2116 FOR n=0 TO 9: PRINT AT 4+n,31;" NEXT n 
2118 PRINT AT 5,23;" AT 6,22;" ";AT 7,1;" ";AT 7,21;" 

11,1;" ";AT 11,26;" " 

2120 PRINT AT 12,27;b$( TO 4);AT 13,1;" AT 13,29;" AT 14,1;" " 

2122 ?RINT AT 16,1;" AT 16,5;b$( TO 21);AT.,17,1;" "; AT 17,8;b$C TO 5); AT, ,17,17 
; AT <t?521;" "; AT 17,25;b$C TO 4> ; ,: , ^ <•; ' . , 


ir if 


* ]i y ! 



";AT 8,22;" ";AT 


it u- if 

nn' 

9 


2125 RRfNT At 18,1;" ";AT 19,1;" AT 20,1; " PRINT INK 7; FLASH, 1; AT i'|21 A 

R • " RRRRRR RRSRRR RRR RRR " V ' j429 I J \ /£ I J 


5;" BBBBBB 888888 BBB BBB 
2130iFQR.-fi=f TO 5: PRINT INK 7; FLASH t; AT. n,20;'V*: NEXT n 


AJ ! - 



i 


F.|Fr,auuiit. H nH Hym ii| .nn ii ffla uMK[ unnoKiintwnui^^uL. 
,.,l„ i. n. n ii i. m 1,1 „ Inn lUln.rifmji judm™, „ ,nh. , Mn „ 

iiliiNK!II !ilh!LJilLi?liBjLH|j| !ee JltLpilj nJiUljHiliSHIlgflUfllHi 

PipillW 

: III : ! iMjh miii • ii ii.i i... 


mmm 




■Hi -3 


mm ilia 


46 INPUT 















































































































ii irin 

It™ lb Kill 11. 


\ ‘T-i 




utmr 

N 


,1 JHMI 

I Eli IH 


i l 


i ■■mu 
n m. 


'"rr2 \ ■■ i n ?w*, -4 ; 

2137 FOR n-1 TO 5: LET xa=4+INT CRNft^S): LET ya=2+INT (RND*16) 


firtii 

nr r.« ?i 


J 

" I 
i u I 


2139 PRINT INK 7; AT xa,ya; W r ;AT; xa+1 pf&; ,, < AA 1 *; AT xa+2 ,ya; "AA": NEXT n 
r' 214Q.::,LET;lx= 18: LET y=29: LET x1=x: LET yl=y* LET di=2 


thru 



■J J M , n, IU 


i* 

irizi 



2150 PRINT INK 6 ; BRIGHT 1; PAPER 0;AT 1,6;h$ 

2152 PRINT PAPER 0; INK 6 ; BRIGHT 1;AT 11,27;i$;AT 11,29;jS 
2160 GO TO 200 
2199 REM 3 PantaUa 

l' Bl it* a ii 1 1 

PIH | I _i_, «• 

2202 RANDOMIZE : LET i=2+INT (RND*3): BORDER 0: PAPER it INK i 


2205 PRINT AT 0,0;b$ 

2206 FOR n=0 TO 9: 


■ ■ 


I 


W 


. II ! 


AT n;0; M fr ;AT n-1 ,30; 


71 


If 


Tit HIM 

iunP 


iriri 


NEXT n 


toj 


T|« 

2207 PRINT AT 1*8;b$( .:T0 21);AT 2,8;" AT 2,14;" M ;A|.2 


;iR|i::incnirn:.:st:-IUI HI: ii I i'.:i|. jv-li ;i"n "-uni 1 11 -:lllil Ii It 


all |f || .i-tt.ni itimn^iiiriiirlmiDiTii, 

m-> jf i P r \mm>\ * 

f o; a ? ’ 



18; AT 2,24; b$< 


IS 

rJi l,HM ;4JtnnlTLJriniiii*Ttjniiiiiiiiuiiid, r [ r .iipuuisHrijttTHiitiiinwKtai* 

>!|Lr,|~l imtlli<|klllhL:n|4f||'j 

. M II . AT /, 5.U«f Tft IiTi'IT 

> 4 , 2 ,b$c ro 

27;" ";AT 6,2;" I«il®:,27; " 


TO 5> 

2208 PRINT AT 
2210 PRINT AT Sppiffi 
2212 PRINT AT 7,2;" ";AT 7,29;" AT 8,2;" AT 8,29;" ";AT 9,2;" " 

2214 FOR n=1 TO 15: PRINT AT 6+n,0;" ";AT 21,n+16;" NEXT n 

2216 FOR n=1 TO 4: PRINT AT 11+n,1;" ";AT 15+n,8;" AT 17+n,1;" ";AT 17+n,10 


ii ii 


;" ";AT 20,5+n;" AT 21,5+n;" ";AT 19,18+n;" ";AT 20,1 8 +n; 

2218 PRINT AT 21,3;" AT 20,12;" ";AT 21,12;" ";AT 20,23; 

2220 FOR n=19 TO 20: PRINT AT n,26;h$( ' TC-5);.NEXT n 
2222 PRINT AT 14,8;" ";AT 15,8;" ";AT 16,?;’ 1 ", 

2225 FOR n-1 “j TO 6 : LET xb= 6 +INT (RND*1 0)i LET yb=4+INT CRND*9) 

■ 'Imui . ,.l ,1 rlniu 

"2227/PRINT INK 7; FLASH 1;AT xb,yb;"BJB";AT xbtl,yb;"AAA": NEXT n 
J^22 3Qt adffL lSllJLT0 19: PRINT INK ?#AT. n,24;‘ J AA": NEXT n 

16: PRINT INK 7::AT n,28;" AAAAA NEXT n 
mSSEKm m INK 7; BRIGHT 1; FLASH aSiMp oT 77 AT 18,30 
GO SUB 605 


NEXT n 

if 



nmirpi 

1 T| It] 

It! II llljiil 

.v 

PHH 

l^ 1 - 


J 


2250 LET x=20; LET y=l4: LET di=1: LET x1=x: LET y1=y 
2255 LET pat2=3: LET ja=2: LET ar=1: LET ar2=1: LET pat3=1 

2260 PRINT INK 6 ; PAPER 0; BRIGHT 1;AT 4,27;i$;AT 1,2;g$;AT 1,4;h$;AT 2,2;j$;AT 
2,5; 1$;AT 3,3;e$;AT II 7 IAT 17,2; 

2280 GO TO 400 J 

ific: 

3000 REM Introduciori.,.', 

3002 LET b$=" ( '"“’ r 

3005 LET z$=" f" !! CENTRO'VITAL !! 

'■ "'""urn I'i," 1 " f 

3010 LET w$=" :■ LACALIZADO.EL CENTRO VITAL 
SAQUEAN TU PLANEliA!*ai||||!!|;|i;y;;flS: ", 

3015 let v$=" C0N L0S 

ELEGIDO. !! POR LO TANTO.. 


f ln FJn. : ; I 


II 

It 


^ in p 

■-L- IMIS 


A 
: I 


•n <11 

L aci=j| 

hhn.J 


LET z$=b$+z$+b$ 


DONDE REPOSTAN LAS NAVES QUE 

■iiii^iiniinuBHimniiiiiiiiii^iukiuQhLii||jiiiiiuiiBiiLuiiifciidUitiiM^ 


. ..... ............ . Kil . II Ml ir|| 



! ILH1I ii-ul-l'rLJijj JTInTil 






CTRONAUTA 


3020 LET u$=" DESCIENDE CON TU ” ZX-FORO ” 
TERRIBLES ANIMALES. 

TE EN LLEGAR AL CENTRO GENERADOR VITAL DE 


POR LAS GRUTAS,DEFEND ID AS POR 

TU MISION CONSIS 
ENERGIA Y DESTRUIRLO CON TU 


I 


1 1 

•!> I 


, L™, 


UCT 

'la' 


inn 

I | ipr 


POTENTE LASER. 

I t jfllllli ¥ 

3022 LET : uS=b$+u$+b$ 

3025 FOR n=1 TO LEN z$: PRINT PAPER . 6 ; INK 2; "FLASH 1;z$(n);: BEEP ,4>„, u , 
:;.Cn)-40 : :; r NEXT n j: ' / 

( 3030 PRINT FOR n=1 TO LEN w$: PRINT w$'(n);: BEEP 

3&>35 mat: ,,.t for n=i to len v^ani Bil ife^ EP 

iicnmim^mic ^tiiuii]Rnn"!Sb!?nsC.il!illiUiri<'l£iJllMyi BimnssuirfiiEinaniiiKir iBhnBin1iij|g|p|»w ini»ici3rii ij'iei 


j ( i Hl "™m 

n lnrni u 

rr B 


f n* 


"'i 



>^1*1 .HI 


z$ 




II mnciiaiLii 
np intiniiuii 

■ , IHiMfell?!:! 

ILt 

'WpiiiiDiEneR 


010,CODE V,$(n)-7C: NEXT n 


J 


lucizinFUIUtidLlUJquiiiJ; T iUJUtltu; 


iliil 


Lin) fejlf .'nil iHliMn 


mm 


Rffiiniw 
iiilSiliiliHiEf® 113 


.020,40: NEXEHCST F . 


\ m 


K ikjIii i:i: {Ml I 



INPUT 47 

































































































L |t lUKal 

i 1 Hir R c 


i n ■ 


.iirr:i 

41 L- !UL!U 


"H 






l iliiii 

1 a! an 


E 

I 

■ 

1 R 


ci 3 L 3 i r.mhtT 
11 iFictfljiillll 

MMI* 


lUlfUliVL 

m\i 


3040 FOR n=1 TO LEN u$: PRINT 

ETVT 1*1 iu: ' 

EXT n “ 1 M 1 
3045/'RETURN S 
3500 REM,Graficos. 

3510: FOR c=144 TO 164 m 


f * ,n H 

INK 6; PAPER 2;u$(n);: 

s' -I-i. 


r'i 


"t!*! 


1 inait 

•n m 


BEEP .030,CODE u$(n)-70:,N1 


-?nir i 
■ tj. ..lauil. 
"iPtUljf 


1 ] i 1,1 

JMiin 5 -n.it 

!, | 

inilLIUUI USUI:MIJliijnnnLi^njLiNi;! innni II rHHJHfnillttSs 
IH'.II II i:i:im.nniii ite[ ,1 IplmiinL 


i;kjfhihi! 

1 V inilSJ 1 ■! :M: ii 


llln 


r |,n E* 

l L, w 


\ nm », rf" 1 

i ii nirl::.inr^j: :n::: 1111 ii-|. m:i:,I r i [ill 


E. 


«JX 


. 1 J 1 


111.11“ 

Kl . i 



[l[ 

F( 

llJTl 


i. ■* -i • rn : w: h'lnn 

: NEX' 

t- 


P c f l' Ipl! jprMIfahnlil'ii ii-minHrinr 

t ' 


il 1 ■^hlpiri-lcii jiii i^lTUiifJ Hnn i 

'■■tf - 


■I .Ipihii 1 ! I I .l.pI 1II 1 iCI i: ^aliJ Ir:* 
rri«tii^»nnimiTnmimiiimmitim »i-.j'. ilmti 

WililLtlUM!liRI£l!IM!ll!W " r ‘‘ 


t 1 ^ 1^11 lUNinnizbiimeiaLii 


f 


r , |j| “|nj™ 

!i 1 —!r-ltirulFI-L-iE ni ag rMiiiLri•ssri-Mfrari: 

MHtMf 


1 c 



3510 DATA 85,85,127,127,0,127,42/42,74,149,75/170,149,82,237,255,0/17,63,94,111, 
23,45,0/90,60,106,126/34/92,148,34 

3515 DATA 8,31,46,31,143,254,124,0,0,30,62,255,254,126,42,85,36,126,86,127,63,18 
,33,18,16,16,16,16,16,16,16,16 

3520 DATA 17,23,38,70,70,38,3,17,136,232,100,98,98,100,200>148,29,11,11,24,11,11 
,0,0,236,140,235,104,162,164,56,0 TCl i 

3525 DATA 1,3,77,65,95,63,1,7,192,224,248,248,224,192,128,224,21,101,5,5,101,117 
,8,0,36,34,32,35,163,148,16,64 f“ ' ’ 

3530 DATA 63,51,215,84,5,37,28,0,172,168,168,44,20q>2QO,C,0,128,76,46,58,30,56,3 
2,192 / 56 / 108,84,1Q8,«eHS73,H6,36,73,U6,36 / 73,146 figi 
3540 RESTORE 3550: FOR i =60000 TO 60019 mm®, „ii 

3545 READ a: POKE i,a: NEXT i 

3550 DATA 205,107,13,62,2,205,1,22,1,191,2,62,144,215,120,177,200,11,24,247 
3555 RESTORE 3565: FOR i=60050 TO 60070 
3560 READ a: POKE i,a: NEXT i 

3565 DATA 33,5,0,17,5,0,6,150,229,213,197,205,181,3,193,209,225,35,16,244,201 


n Unci, 

« I* 


I ,, 1 


V'l 


3580 RETURN 

anr 1 11 1 

4000 REM Variables. 

114 ii ' I H(U 

4005 LET b$='f ,, 

4010 LET' a*="iL": LET cJ^JCL'': LET d$="QR" 


irr 111 


"J-r 


fcJ; lILC 


1 * 
U 4 L 

1 ' 


ni|p 

r in 


_i in 


II 


A 


u . 


/ I 


. 1.1 .La: 11 1 
inuniiontuit 

Liui 


\ PT * r 

1 y * _ * 


In in i-.r 11: -cll^nl 

IfWIi 


. if iMuMnHnniii mijrLimi 


\ /%; 

m ul L 

1 

L Jiim 

L|:ii:i. 11 . niUlMUHtlOT ||M .1 IliUUU. 



4015 LET: eS= ,, MN": LET f$= ,, 0P M : 

LET iS-VaL": .. 

4025 LET.k$=" H M : LET l$= M GF": LET m$="TTT 
«T pu=07lET re=0: LET t=0: LET en=2 
4035 LET me=10: LET pe=3: LET Z=29: LET pat1=3: LET pat2=3: LET pat3=3 

4050 RETURN 


ifi 4 . **■£*■* ■£*«** *** * £**>!!>'i'*** I** <t> 

■ :l ‘ m 


!:iciinr:n«n .nfciifcn. 

UILIIII ..lUUllLM.|.| T |T!i5J|j||||||^lMU4||t.HHHBlimimj 

iiiaii!lliiiar;[LiLlllil-::iijr>£!Ljij,|-i[tjE||rPJI'JjyuykNH 


1 " 


J. 


pjjNimi 


"•;I:e j:n?JP 


iiSliP® 



If 

‘in.. 


ip -inpn, 

laid 

.ruLiCfuJiuiuhBr.iiuumiMm.uui.iiflli 

■iiiTniiii.i.i.imuitumniMUMiuitijjnji.'i 

'iiiiJIfilsttiiiyjtili'iiiiitliiiiMItLiii hi!■: 




.mi J 


Hit" 
m l Ibi 

1 1 11 1 


iii imr 
a 

nuil. 


"H 

r 

.^rU 

.rs^ 


a bbti a . 

'n* '“1 


1 « ,PI H 


\ 


.H 


Ul*' 

,i ntr . 

Ilf 1: 


i i J 


UriUJa 
laj rt| 

«j U iJLIkl* 

j 

1 . 


! J I. ,>k 

,«■" ; ], 

L J ™\*M \ 

dclixtir: JniaiiiiNiiinMi 4 £iJ«NKJLiui u i- 1 - fj“, nLJULmniiwpiirt’.Hn^b«A 

^1. ifi riiifMifwWifcursiatiiJiiniiiu 


la _ _ 

1 | 

MJ ■ 


I 

- .nvtj 


lib 

* ' 'i 

fPRi 


I 


1 

1 

J—141 


A 



inijl |H 


m 


ii 




L, 


11 wl,| nj1i ' 

■M.'lJjiipn 11 II-JII. 1 11 1 | II miiLILU.llji|: ' ll 

git mmMutiHwiHtmri liil n lonitnilac ij| i.s.-,.....,... , MI 

iHieptnaagtiHUIIliHUIlPM ifiim isL dUiirjywhlEKiEL-UlfPIri 


_4h 


iu6 


111 


1 


ih-.. 


I 


J. 


iiimniiiBwirimiiiin 
4llUlilUclllllclli4miiiiini 


I H|T| 

m 


4i;i 


!r!F : l r 



11 - 113 : 1 : 111 S HI tl t L 11 = 1 = u n rj: ^. 1:11 j 11 r 1 : II, 

11 ilal jijiilii is II j.Hinpi:iriE| |i || Hi|j|| 

Ur, 


;-ui 

1, -y=) | WniiiujitiU 1 4nrfnii 
WMntl4mim3Lutt4M 

mmm 


mv z 


4a INPUT 


































































































































a finalidad del jueg© es la destruccibn de 4 misiles lanzados por el enemigo 
antes de gue estos .consigan alcanzar su destino. Para lograrlo hay que destruir 
14 satfelites 


( queij, pueden delatar tu posicibn y 8 escoltas que protegen la 

toria de los misiles,.,, . 


/ 


®W.'' 

1'I.M 

Wy 


1 h] hi 

tf'M 


irf.'.ir iiu 1 






ProgramacI6n: 


r i 


m\-rm 


M ; ■ . , 
il i dtfl nim 



b permite una 


El juego estft : User ito mitad en BASIC ml tad en C, 
elevada velocidad asl como un suave movimiento 'pixel a pixel'. Las distintas 
subrutinas vienen separadas por REMs que indican su funci6n. En caso de error al 
ervtrar los ntnneroa de los DATAs correspondientes al G.M (no los grSficos) f nos 

lo indicaria el pograma en la linea 800 {TEST SUM)* 


Partes del programs: 


29Qr360 GrAficos definidos. 

Programs Cddigo Miquina 
st Sum. 
ograma BASIC, 

.var el programs. 

POKES t 





39985 Velocidad del objetivo. (Valor inicial 90). 

39987 Fuel, al incrementarlo se incrementa el tiempo dlsponible para realizar 
la misibn. (Valor inicial 2). 

NOTAi Es posible alterar estos valores directamente sobre el DATA de las 
variables (linea 420-430} slempre teniendo en cuenta el Test Sum. 


Joan Jou Buch 





1 REM ..STAR 
5 REM 

10 REM JOU 
20 REM 
30 REM 

290 RESTORE 0 

300 FOR x=65384 TO 65511 

310 READ s: POKE x,s 

x 

0,0,24/13,6,15,57,96,128 
20,226,12,240,0,0,11 
,31,61,125,125,7,0,0 


40,124,207,3,0,0,3,20,4 
,0,0,0,0,254,255,25 
,128,128,128,128,192 


INPUT 49 






































































































1 














16,64,0,0,8/0,128 


0,0,160,0,0,8,128 
5000 

5 LET test sum=0 
380 FOR a=39896 TO 40481 
390 READ s 

395 LET test sum=test sum+s 
400 POKE a,s 

410 NEXT a 4 \ 4 1 

414 REM PROGRAMA DECONTROL f 

415 DATA 243,205*249^1 afe>205,216,156,205,64,156,205>76^57>25'4,100,1 ,2,0,200,20 

A i| l ' 


5,181 ,157,42, 
,254,200,1,1, 
417 DATA 58, 
10,16,254,193, 


,6,43,34,50,1 56,24,14. 

f“ W}1 •’ ! i i S-i!¥ \ 

10,16,254,193,16,248,205,64,-156/58,49,156,71,197,6, 
19,254,230,1,1,0,0,251,200,24,171 


,.ww,50,50,156,205,240,157 

| MW 

jSWiAri * " L " . b 


420 REM VARIABLES 

430 DATA 90,0,2,60,80,0,0,0,146,0,0,64,0,205,80 
440 REM TECLA PULSADA 

450 DATA 62,254,219,254,230,4,204,93,156,62,254,219,254,230,2,204,135,156,62,12 
7,219,254,230,8 

204,34,157,201 
MIENTO DERECHA 

,62,156,58,61,156,87>g^Mjif^ 25,254,216,200,44,22 

2,111, 2C5,177,156,125*il4M!l11 / 54 ,62,156,122,50,6 
IMIENTO I2QUIERDA * 1 *®' 

2,62,156,58,61,156,87,254,0,32,7,125,254,194,200,45,22,8,21,205,197 
,156,125,198,32,111,205,197,156,125,214,32,111,34,62,156,122,50,61 ,1 56,201 
520 REM MOVIMENT PIXEL DRETA 

530 DATA 0,6,8,175,203,30,44,203,30,44,203,30,45,45,36,16,242,38,80,201 
540 REM MOVIMIENTO PIXEL IZQUIERDA 

550 DATA 0,6,8,44,44,175,203,22,45,203,22,45,203,22,36,16,242,38,80,201 
560 REM MOVIMIENTO SATELITE 

570 DATA 42,59,156,125,254,28,40,25,58,58,156,87,254,7,32,3,44,22,255,20,205,17 
7,156,38,64,34,59,15^12211,50,58,1 56,201 g - % 

580 DATA 175,50>59,1 S6>50,58,1 56,62,2,205,1 ,22,62,16,21:5,62 : ,0,215,62,17,215,62, 
0,215 ,62,22 ,215 5 ,58,57 ,156,215,58,1 

590 REM CALCULO^MHK'lpinR^ 

600 DATA 33,54 fi 56|$ % J«192 ,54 ,20 ,58,62 ,156 ,214,192;p§ ,:1M,58,61 ,156,35,119 
610 REM D E F IN IR fiR A PiPROYE 

620 DATA 0,42,62,156,17,88,255,6,2,197,6,8,126,18,19,16,252,193>35 ,16,244,0 
630 REM PRINT PROYEC + INC POS. 

640 DATA 58,54,156,183,200,62,2,205,1,22,62,22,215,58,54,156,215,58,55,156,215, 
62,128,215,62,128,215,58,54,156,61,50,54,156,183,40,23 

650 DATA 62,2,205,1,22,62,22,215,58,54,156,215,58,55,156,215,62,144,215,62,145, 
215,201 

CALCUL POS. IMPACTO 

9,156 ,111, 58,55,1 56; , 18,9^;i;^p,,189,40,8,44,44,189,1 
2,7 ,33,56,156,15 0,33,5 56/134,25 4,4,216,198,247 ,216 


PRINTER 


8,3,22,189,15,33,0,0 


50 INPUT 
















































nil,' ' I 



720 DATA 42/52,156,124,254,87,32/10,125/254,188,200,125,198/32,111,38,79,36,54, 
0,34,52,156,62,200,201 
730 REM S0NID0 EXPLOSION 

740 DATA 33,0,0,14,2,22,5,126,230,24,211,254,65,16,254,35,21,32,244,12,32,239,2 
01 

800 IF test sum<>603'66 CHEN PRINT ;"ERROR EN DATA": S|OP J 


p l. 



l !, 1 .™r, 

i i 




EfK? 11. 



ROL 


liji' 


IGjif. 


m 



997 REM 

998 REM SAME 

999 REM i -ivm 

1000 LET score=0 E tfN 

1010 LET cont-0 
1220 INK 7: PAPER 0: BORDER 0: CLS 
1240 PRINT AT 10,11; INK 6;"STAR WARS" 
1250 PRINT #1;" JOU SOFTWARE 1985" 

1260 PAUSE 0: CLS 

1270 GO SUB 5000 

1272 PRINT U 1;" BUENA SUERTE" 


m 


ini. 


A* 

rrJ" 


t ilW 

&JSC 

n»pR, 


12?$,, PAUSE 0: CLS 

PgiNT AT 4,8; "TE CL AS DE 


1 


JL> 

” Ji,’ 1 If 



W 


r tA'i'iW ■% 

Incirft . « an. .□ iJIU ICli 


y \ 

X,..DERECHA";AT 12,10;"f'I 




ifflltf 



/ 





AT 8,10;"Z...IZQUIERDA"; 

^T.-salir" 

—sjcjuriv i. t "prs«Wni ■ jiwi'v i;.' , '! r ird»i.„ 

420 PRINT AT 4,10;"TUS ENEMIGOS . \ > 

1440 PRINT AT 9,10;'^CD_ ...SATELITE AT 12,1D;"EF. -.. ESCOLTA"; AT IS/IO;"^ ...MI 
SIL" 

1500 PAUSE 0: CLS 

1800 POKE 22554,0: POKE 22555,0: POKE 22556,0: POKE 22557,0 
1820 PRINT AT 6,26;"SC0RE" 

1830 PRINT AT 7,26;"00000" 

1840 PRINT AT 14,27;"GAS" 

1850 PRINT #1;" .JL” 

1860 POKE 23659,1: PRINT, AT 22,13;"IK" 4 J 

1870 FOR f—21 TO 17 STEP -1: PRINT AT f,28; INK 6;"S’’ 

2010 LET ,.U$R W&SW " 

2030 IF a<>2 TH 
2040 PRINT AT ; d 
2050 RANDOMIZE U 

2060 PRINT AT 0;(PEEK 39995); INK 6;"PQR" 

2070 LET score=score+10 
2072 LET a$=STR$ score 
2080 PRINT AT 7,(31-LEN a$);score 
2085 LET cont=cont+1 
2090 PRINT AT 0,(PEEK 39995);" 

2095 LET graf=PEEK 39993 
21QffilTPSflra±*146 AND cont=14 THEN 


UTiHr; 

iip to - 22 CC 
USR 40459 


-fMKJ 




INK 2; BRIGHT 1 ;"MON" 


[ WP!y' I 1 






j 



u 




if 
■tv >.*' 


48 AND cont=8 THEN 



INPUT 91 














































o 

i r ! ■ , ■ ! r jr j 


v J:m'4 


CK-w 01 


/ 


it. 




i IV, ,™ ,irl .t l biiOT 


Wi:i‘r j a-f=150 AND cont=4 THEN 


¥M' 

- flj l 


,JKI 



1l J :l \ 




H r ! > 


4UUU**- 

\ 'sSSsf \ 

i 1 i 


I vVS 


Ms m* 


i! 1 -*”’ i >*" ' ’ "“W,, 



I* 


.K'>K;5I. 

fNSEGUIDO 


■hii 


1 


*'m r 


j ■ i i’ ‘ill- 


.1 J . I“ : :I il 


iinnujiin _ 

. UENA" 
iMI .INTERCEPTADOS" 


M? 

P 


MdVII ! JlilfWi 


in 




: l iM'M'uili 


jjim” 1 "’. 


"i, 


;**0 2 D 00 

It *11 AT 10,10; "GAME OVER 
2490 POKE 23659,2 
2500 FOR a=0 TO 300: NEXT a 
3000 RESTORE 420 
3010 FOR z=39985 TO 39999 
3020 READ d: POKE z,d 
3030 NEXT z 
3040 GO TO 1000 
4000 REM OBJETIV' 

4005 POKE 23659^||jpf-|'^|a^ 

4010 PRINT AT't,7;”pNH 
4020 PRINT AT 9>2;' 

4030 IF INKEYSO’" 1 THEN GO TO 4030 
4040 IF INKEYS 3 "'' THEN GO TO 4040 
4050 GO TO 3000 
5000 REM INSTRUCCIONES 

5010 LET a$="DESTRUYE LOS 4 MISILES LAN-ZADOS POR EL ENEMIGO ANTES QUE ALCANCEN 
SU DESTINO. PARA LLEGAR A ELLOS DEBES DESTRUIR PRIMERO LOS 14 SA-TELITES,,QUE 
DELATAN TU POSICION Y LOS 8 ESCOLTAS $UE '‘jjjpROTEJEN LA TRAYECTORIA DE LOSP 

■ !r>ry!|E 

5Q2®&R; 

Mm W ^. 

i n ''kuli.lpnlv. IP 1 - 






I, - - a l ls 
4c .itp«. =,j| ir _ 


MlftLES 

K%r]':'K J 


AT 0,11; "TOP SECRET" 

-AT 2/2; "MISION **** 


o ■ i ,■ .M 1 !!' 



GO TO 


=9 

Y$<>"" THEN 
5050 FOR h=1 TO c 
5060 FOR s=2 TO 28 
5070 LET x=s-1+(h-1)*27 
5080 BEEP 0.01,10 
5090 IF INKEYSO"" THEN 
6000 LET d$=a$(x) 

6010 IF CODE d$=32 THEN 
6020 LET f=C0DE d$-4 
6030 PRINT AT h*2+2,tf; 

6040 IF fOCODE d$ THEN :ILET f=f+1 : GO TO 6030 
6050 NEXT s 




Im;« 


,!H* J 


n. ii j ■ 'i 

cf 

^wNHuii 


K 




CLS : GO TO 6070 


PRINT AT h*2+2,s;" 11 : GO TO 6050 



U 


6060 NEXT h 
6070 RETURN 
9000 SAVE "STAR 









m 




V pi. 


fcli 


jwl 
l l l' L - 


r m '\ 


(l 



« 


111 . Il II 


1 






52 INPUT 



















































































































en un juego de 'ldgica 1 , ,qye exige la"jna 

-I J ( _ |j j1 1 jjll nj arFj: I] 

11a,, El jugador tendrA que psolucionar un 
cuadrado con 6 colores diferentes, pero. il 


■ PH IH 


If ini 


; n ii - M L FBP u 

j !iff if 

iM j # 1 MNB D e 
Kjflipi if A 

ypr h ji ^ ii H 
iSf IJ il n n 

HR K 


mm mtu 

. Ir HHiJN UNift 

'1 programa 
aci6n en 

. # « ii 

:e en 

_Wj* /" ’ repetlr ninguro en los siguient*^, ;^aSpsfll% 

* El color elegido no ddbe repertirse si hay otro de sii Iflsmoi c6digoen sentido 


iji'i.« 
II 


!l ii 


If 


IF il 


horizontal (izquierda o derecha) o vertical (hacia arrlba o hacia abajo), 
* Igualmente sucede coando esti encerrado en cualquiera de los diferentes 
cuadros que recorrer> diagonalmente la pantalla (ambos sentidos). 

Las diferentes subrutinas que integran iel it programa estan sefialadas con 


comentarios HEM para que puedan 
estudiarlas, El programs 
30-170 Dibujo del cuadrado 
180-280 Programs principal, 
290-495 Subrutina de 
500-510 Subrutina de 
520-530 Subrutina de c& 

540-600 Subrutina de ver 


facilmente por quienes quieran 
de la siguiente manera; 


HR R R 

. b'F 


del cuadro. 


cuadro. 


610-900 Subrutina de compr 
910-950 Subrutina de correci 
960-1120 Subrutina de instrucclppes 
1140-1260 Subrutina de fin de 

Iflf 

10 REM CUADRADO MAGICO 


tIL J»LJ II 

eqo. » * y 


Daniel Medlavilla 


# DANIEL MEDIAVILLA 1985 


20 POKE 23658,8: GO SUB 290: BORDER 0; PAPER 0: INK 9: CLS 
30 REM PANTALLA 


i<"%,0 "FOR 1=1 TO .IS in «FOR A=6 TO 24 STEP 3 

~ _liJiH H p | J jhi H 

7 - 

1 1 


50 PRINiFli 

. ‘60 m 

70 FjP 

P rf80V " 

■ ! ii" 90 





.1 m 


II M II If ill! H 

II. B Hill 11 


II 


i.T 

. 91 |II3 R 




r v 

PLOT 196,163: DRAW 0,- 
PLOT 196,163: DRAW -2 

N If 


i 'Ijjpl ii'ii 
nwrjft % N iifflr 

' :• l " '[fl H.! M! _ 

,163-(48*(I-1 > AND 

"u '' mm 

,163-<48*<I-1) AND JOI 

i mM 


m rnu n h 

“ ’ if" \ . 



'I H Ij 


R, II (I H |jl 
l | Ffi nwifflr 



HR H 

ij iite 
1 R J 


ft if 


PS[M , 

MMm t II H 

f 



139-(48*(I-1) AND 


I H H 0 

•m. ■ " ,, 

» « « " W I it u 




IIII 

W 48, 


* "ll« “ , " 

« *„ "* .. 
» * » " ui 11 


INPUT 53 






























































































































































































































































































































m m i 

II upl 

.160 PL 
'4-(24 

J7A b 

P.VttM 

, M" 

# II 

If 


„ n_aii „ n n JBI it 
,» t JJ L J „ II Z JHI U 


.hhi m n 



iswwl 

ill . "I* l^!i 


NHflJ 

a 21 

FL=tt‘ 8 GtT“, w 
' 220 w ,rfi* Z$= M R? r 

‘ 1 Y^pie^ 




AND JOI ) ,139-(48*( 1-1) AND X,<5>1 > r 


DE LA TECLA PULS ADA * m *\ 
Fii=0f LET C=0: LET F=0:'LET 

J " , ■ - 

lit Jl 

R it$=13 THEN GO SUB 5Si 

'll IK ll" ll " " s 

II H it 

520: GO SUB 500: LET»SW=1,.! 


a*.W 


AT 2,0; PAPER 2*;' 
0,10; PAPER 6; FLASH 


E 2$<8 OR CODE Z$>11 THEN GO TO 200 «| 
: GQ, T0"240+10*(CODE Z$-7) 


250 LET Y=Y-(3 AND Y<>7): GO SUB 500: GO TO 200 
260 LET Y=Y+(3 AND Y<>22): GO SUB 500: GO TO 200 
270 LET X=X+(3 AND X017),; £0 SUB 500: GO TO 200 
280 LET X-X-(3 AND X<>2) * ®0 SUB 5DQ“'i !h GO 'TO' 1 ,200 
290 REM PRESENTACION tl " fl 

300 BORDER 1: PAPER 1: 

4,0 

310 PLOT 40,150: DRAW* 0^2:1 ll 
320 PLOT 72,118: DRAW 0^2: 

330 PLOT 104,118: DRAW 6 
-16,0 ™ 

34Q / pL0T 136,118; DRAW 0 



,i,i. i, i h | h n H „ 

- —_ ii «n .iai _ 



24,0: DRAW 0,-32: DRAW 2 



HIM./ - ■ ,i 

JlfL IttljfB 


,134: DRAW 24,0 
AW,0,-16: DRAW -8,-8: DRAW 

AW“0,-8: DRAW -8,-8: DRAW 


-16,0: PLOT 152,126: DRAW. 

350 PLOT 168,118: DRAW 0,32: . DRAW 24,0: .DRAW .0,-32: PLOT 168,134: 
xah pi nr ?nn hr* hoau pipaui K "hJiMiii n -ia« 


VM 


360 PLOT 200,118: DRAW 0,32; 
-16,0 

370 PLOT 231,118: DRAW 
380 PLOT 40,62; DRAW 0 
390 PLOT 72,62: DRAW 0, 



DRAW 24,0 
0,-16: DRAW -8,-8: DRAW 


int u 

» ll j 


ff DRAW -24,0 


430 PLOT' 
.i 440 L 
'450 p" 


11 |a HN 


m 



l Ml „ II l\ III! 11 


j 24 JO: 1 

2;“,-16a DRAW 12,16: blSAW 0,-32 
6t^;0 i DRAW d,i32: FjfLOT 72,78: DRAW 24,0 
400 PLOT 128,94: DRAW -24,0: DRAW 0,-32: DRAW 24,0; DRAW 0,12: DRAW -12,0 
410 PLOT 144,94: DRAW 8,0: PLOT 148,94: DRAW 0,-32: PLOT 144,62: DRAW 8,0 
4^0^PLOT 192*94:,. pRAW -24,0: DRAW 0,-32: DRAW 24,0«» 

ik,-24,0: DRAW 0,-32: DRAW 24,0: i>RAW 0 
|T0 29: READ D: LET D$=D$+CHR$“D 
8 ,73,69,76 ,32 ,77 ,69,68,73 ,6“5,86 
&,71 ,65,82,77,69,78,68,73,65. 
l! ‘A.Tifi21 ,0; INVERSE 1; 


THEN GO SUB 960 


Y; PAPER 0; FLASH 

5 * 

=INT (Y/3)-1: PRINT 



54 INPUT 



















































































































































































































































































































































IJ Jl 


il{|! r 

" fV 


540 R 
550 Ms 
56Di 


w hi K m if 

hMS 0 „ if ... m ii 


."V** 


mmmm 

jap'Golpa^ 




..«J*V * "ii !UI "mi m 


S-TOJlSO SUB 500 


DELI CUADRO ( 

,Y1) THEN BEEP .025,-10: RETURN 
SW=|jl THEN LET SW=0: RETUR 


r i •*- 

™I'F 


H iltl St 


fi I! 


djp 


iPM 


isfcll# 


i n 


OR X$>"6" THEN GO 10" Si 

1 !!!whHilP 



\m 


ft^jT A (XI ,Y1)=1 
BjpV LET C=C+(1 AND NOT 
CUADRO REPETIDO 

, Yl) : FOR I=Y1 +1 TO 6 

tlr Tl ,!n+* 


6?0 IF P(X1,1 W,OT 910: GO TO 900 

MHli.it hihhvt r iL mm 



Jr *1 iLlffr i!, 

«tiN=VlA jo*T 



>N)=Pt THEN “GO-SUB 910: GO TO 900 


.Kll If 


IE H 


680 FOR "i=X1+1 TO *6 


0 It 



690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 


IF PCI,Yl)=Pl THEN GO SUB 910: GO TO 900 
NEXT I 


FOR N=X1-1 TO 1 STEP ,,*■ 


# I*. 


itm y 


IF P(N,Y1)=P1 THEN GO SUB 9 
NEXT N 


IF XI =Y1 THEN GO TO' 770 
IF Xl+Yl=7 THEN GO TOJ 

IE uU mi B r 

GO TO 900 
FOR 1=Yl+1 TO 6 
IF P(I,I)=P1 THEN 
NEXT I 


1* .. M B.. iU 


li jjlt fH! 


it (| s m n 



FOR N=Yl — 1 TO 1 STEpwCi 
IF P(N,N)=Pl THEN 
NEXT N 
GO TO 900 
FOR 1=1 TO Xl-1 
IF P(X1-I,Yl + I)=Pl 
NEXT I 

FOR N=X1+1 TO 6 
IF P(N,Y1-(N-X1))=P1 THEN GO SUB 910: GO TO 900 
NEXT N 


if It 



RETURN B "" 


CUADRO 


>IAG.ICO.,ES ! UN JUEGO "/'CREADO PARA HACE 

It JO r jjprr ijzjrjj a ; imh. 1 ii:i 

d$ISTE","EN COLOREAR UN CUADRADO CON 6 
iera|0|jB£RO CON LA'V'CONDICION 
| fi'&fGK UNA TECLA ' * ■ 

jefCOilOR ELEGIDO NO DEBE R£PE-ij!' 

I2QUIERD0 & 


NGUNO, 
1,000 D 


Sk'S'i !Hay* emu 

!h] 0» VERTI^L 
iiJnA TECLA 8 " . 


(,A6rifW 
*10 Rtf 2 6 Nf! 

\Q hacja 


NTECSENTIDO 
ABAJp) . 


II 5 





r 

![ * 

IS 

. 




u 


4 


INPUT 55 
























































































































































































































































































































II 



ENTC OQURRE SI ESTA "/'ENCERRADO El 
SUE RECO-","RREN DIAGONALMENTE 1 LA g 
S PULSA UNA TECLA "J 

fe-'fiON'*5 ~ IZQUIE R D A","6i* m ?$(m 
yADRO”, ,, CSPACE> BORRA CUADRO ESCRITO' 

PARA RENDIRTE'V' 


1010 D 
"DIFER 


COLOR’ 

Huibt I in 


,1050 "FOR H*|«Q 
1060 PRINT 
1070 BEEP .01,5 


IF INKEY$=""‘ THEN GO TO 1100 

CLS : NEXT J 

RETURN 

REM FINAL aw 

CLS : FOR J-1 TO 10:'L^T K=IN 
BEEP .05,K: BEEP .05 / K+7: BEE 
NEXT J ' ‘ ill' 

PRINT AT 2,0; PAPER 6; 

PRINT AT 6,0; PAPER 2; r, HA$ EN 
AL PROBLEMA 
PRINT AT 11,0 


1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

ONES 

1190 


NA,LO HAS CONSEGUIDO !" 
WJLM*";AJ 8,0; "MULTIPLES SOLUCI 


PAPER 


PRINT AT 17,0; "ERRORES: t ’';f: 
PRINT AT 19,0;"CUADRADOS: 
PRINT AT 21,0; INVERSE 
LET Z$=INKEY$ \ “-UVL 

IF Z$="S" THEN RUN J® J§ ■ 
IF Z$="N" THEN GO TO 9999 
GO TO 1230 'lifclkiJ 


DE NUEVO? 







i[ mi u n m fi 
-..MU «„ s m 0 



'/fmm » , 

»" .in' 

»“,« 1 11 “ 


K... !{ II 13 

jtfsJ 


' A 

1 ‘iMnr!! 


n m 


r 



^■n 'y 'hiH M u HI; 9 Hf: Hi' 

mm ifiiiuif ;= " 


imfflL.... a h h 0 ii 

m ^ ft 
Wt< 



I. H “ . 

I 13 (j 11 

* I, ( »l« 

I 

„ R B lift 

» HR 11 

« » 

„ „ • , « „, 


56 INPUT 












































































































































































































































































































































C/ DUGUE DE SESTO, 50. 28009 MADRID 
METRO O'DONNELL 0 GOYA 
APARCAMIENTO GRATUITO EN FELIPE II 


TELEF.: (91) 275 96 16 


OFERTAS EN SOFTWARE: 2 PROGRAMAS AL PRECIO DE 1 Y ADEMAS REGALO FIN DE CURSO UNA 

CALCULADORA COMPLETAMENTE GRATIS j jASOMBROSO!! VERDAD7 


PHANTOMAS II_ 

SUPER SERIES_ 

PENTAGRAM__ 

ROCK'N LUCHA_ 

YIER AR RUNG FU_ 

THE WAY OF THE TIGER 

GREEN BERET_ 

MOVIE_ 

CAMELOT WARRIORS _ 

TURBO ESPRIT_ 

DYNAMITE DAN_ 


2.100 
-2.900 
.2.300 
2.100 
.1.900 
2.300 
2.100 
2.100 
.1.900 
2.100 
2.100 


ptas. 

ptas. 

ptas. 

ptas. 

ptas. 

ptas. 

ptas. 

ptas. 

ptas. 

ptas. 

ptas. 


COBRAS ARC 

_2.300 

wnm n hup 

2.100 

QU AZAT RON 

2.100 

BATMAN 

2.100 

PING PONG 

2.100 

«v» 

_2.100 


ptas. 

ptas. 

ptas. 

ptas. 

ptas. 

ptas. 


PHANTOMAS_2.100 ptas. 

LEYENDA DE LAS AMAZONAS___2.300 ptas. 

CYBERUN_2.300 ptas. 

BATALLA DE LOS PLAN ETAS_2.100 ptas. 

COSMIC WARTOAD_2.100 ptas. 


SOFTWARE DE REGALO (OFERTA 2x1) 

FIGHTING WARRIOR - DUMMY RUN - BOUNTY BOB - SOUTHERN BELLE - ALI BEBE - KRIPTON - RAIDES 

TOMMY - SHADOW FIRE 


TECLADOS PROFESIONALES 
INDESCOMP 13.195 PTAS. 
SAGA 1 8.995 PTAS. 


iM presorM 

20% DE DESCUENTO 


SPECTRUM PLUS+6 JUEGOS 
25.900 PTAS. 

GRATIS 1 QUICK SHOT V 
O 2 WALKIE TALKIES 


SERVICIO TECNICO DE REPARACION 
TARIFA FIJA DE 3.600 PTAS. 


OFERTA KEMPSTON 
INTERFACE DOBLE+CARTUCHO ROM 


INTERFACE CENTRONICS RS-232 

8.495 PTAS. 

CASSETE ESPECIAL ORDENADOR 

4.495 PTAS. 

DISKETTES 3" 

990 PTAS. 

C1NTA Cl5 ESPECIAL ORDENADOR 

69 PTAS. 


INTERFACE 1 10.900 PTAS. 


OPUS DISCOVERY 

MICRODRIVE 10.900 PTAS. 


39.900 PTAS. 


PRECIOS EXCEPCIONALES PARA TU AMSTRAD CPC-464, CPC-6128, PCW-8256 


OFERTAS EN JOYSTICKS 


QUIC SHOT l+INTERFACE _2.695 PTAS. 

QUICK SHOT 11+1NTERFACE _2.995 PTAS. 

QUICK SHOT V+INTERFACE _2.995 PTAS. 


QUICK SHOT I _1.395 PTAS. 

QUICK SHOT li_1.695 PTAS. 

QUICK SHOT V ___1.695 PTAS. 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. TELEFS. (91) 275 96 16 
6 274 53 80, O ESCRIBIENDO A: MICRO-1. C/ DUQUE DE SESTO, 50. 28009 MADRID 


TIENDAS Y DISTRIBUIDORES GRANDES DESCUENTOS 
DIRIGIRSE A DIPROIMSA. C/GALATEA, 25. TELEFS. (91) 742 20 19 6 742 79 68 




































































Revi 


Zade Software 



LOS MEJORES 
DE INPUT SINCLAIR 

1 . 'uBKlBflteUc. « _ ulJ * . 


- . ’ v> T 1 ;r - r ' 

PUESTO TITULO PORCENTAJE 

- Tl * * *• J® * *^. k —j.. *h s- j i . « ■ 1 »I *jy • _:■ * *■* ' *w - ■* w. . • 

r j^*. tj fc ~ r^luC-" >.»., rw " ?-» 'I _ «* ■ - ;J *’r - , ' . , i 4 - •? ^ r . «■ ■ 

1.° Commando . 20,7 

Z.° Green Beret . 17,6 

3. ° Winter Games . 12,5 

4. ° Rambo . 11,3 

5. ° Saboteur . 7,7 

6 . ° Sir Fred . 7,6 

7. ° Sky fox . 7,5 

8. ° Camelot Warriors .......... 6,3 

9. ° Movie ... 5,1 

10.° Ole Toro . 3,7 






100 % 


Para la confeccion de esta relacion uniramente c/= 
han tenido ert cuenta las votaciones 
nuestros lectores de acuerdo con la seccion «Los 
Mejores de Input*. 


recogidos hasta la primera semana de iulio. 
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SHORT'S FUSE 


Shores Fuse es una nueva 
production de Firebird de reciente 
aparicion en Espana. Se trata de un 
pragrama de action trepidante, 
especialmente pensado para aquellos 
que gustan de poner a prueba su 
velocidad y sus reflejos a ios mandos 
del Spectrum, 

El protagonista de la avenura es ua 
espia de nervios de acero , Ham ado 
Sam, cuya mision consiste en 



r-- 




- > 
» , „ 


DATOS GENERALES 

* ■ ■ .P * f ■ P 

T7TUL0 Short's Fuse 

FABRICANTE Firebird 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Desactivador de bombas 









CALIFICACION (Sob e 10 ptos.) 

A i t ■■ililll t ■■IfttttflttIMMMIIMMII 

0RIGINALIDAO 
INTERES 
GRAFICOS 
COLOR 
S0NI00 



de arcade con et que tan buenos 
rates hemos pasado, aunqne 
permanece muy ligado a esquemas 
un poco anticuados. Los graficos no 
son especialmente vistosos, pero en 
general, el juego cumple todos los 
requisitos para merecer una critica 
positiva. No falta emocion en ningun 
momento, y el interes se mantiene 
por muchas partidas que juguemos. 
Creemos que es muy dtffcil aburrirse 
con un juego como este. 

Esta claro que Short‘s Fuse no es 
precisamente el juego mas indicado 
para aquellos que prefieren los 



desactivar, en un tiempo lfmite, las 
bombas que el perverso genocida 
Boris ha ido colocando en todo el 
planeta. Los distintos escenarios de 
que se compone el juego representan 


diversas capitalcs del mundo, cada 
una de ellas con un monumento 

caracterfstico- 

Este programa hace una original 
reinterpretacion del clasico modelo 


juegos de inteligencia y estrategia a 
los juegos de accion. A los que no se 
encuentran en este caso, y les guste 
la emocion, les recomendamos este 
programa. 


GERRY, EL GERMEN 


La originalidad en el soft no se 
valora solo a traves de las 
innovaciones tecnicas* Existen otros 
aspectos no menos importances, 
como el tema, que contribuyen a que 
nos smtamos satisfechos con un 
programa, o a que nos decepcione su 
excesivo parecido con otro, segun el 
caso. 

Pues bien, Gerry the Germ es uno de 
esos juegos que, sin espectaculares 
graficos ni grandes efectos, cautiva 
por la originalidad incuestionable de 
su tema: el objetivo a conseguir es 
que Gerry, el germen protagonista 
de la aventura, se convierta en «el 
virus mas virulento del ano»* e 
infecte «a conciencia» todo el 
organismo de su victima. 

En unas curiosas instrucciones del 


tamario de un «poster», se nos narra, 
en forma de comic, cuales son los 
obstaculos a superar y como 
conseguirlo. 

Pareee ser, que Gerry fue expulsado 
violentamente del Instituto de 
«Infectologia» por incompetente. 
Desde entonoes, suena con 




DATOS GENERALES 

■ VM ■ 111 I ■ ■ 1 M Ml M ■ M ■ * ■■■■■■ I < < 

T1TUL0 Gerry the germ 

FABRICANTE Firebird 
ORDENADOR Spectrum 48K 


TEMA DEL PROGRAMA 


immmi 



bn germen en el organismo 


CALIFICACION (Sobre f0 ptos.) 



ORIGINALIDAD 

INTERES 

GRAFICOS 

DOLOR 

SOHIDO 



9 

6 

6 

6 

4 


TOTAL 


31 




INPUT 59 














































































convertirse en un terrible virus. 

Pero, como el sabe muy bien, el 
organismo humane esta lleno de 
defensas, que no estan dispuestas a 
tolerar la intrusion de un germen de 
segunda clase, 

Finalmente. consigue infiltrarse en 
los pulmones de una victima 
anonima, y desde elios. se propone 
llegar hasta el corazoru pasando por 
el estomago, el pancreas y otras 
vi'seeras de contenido mas 
desagradable, aunque no menos 
peligroso. Si lo consigue, podra 
volver al Institute con la eabeza muy 
alta, a exigir el reingreso y obtener 
su diploma. Si falla en el intento. 



naturaimente, puede intentarlo de 
nuevo. 

El bajo nivel de dificultad del 
programa, y el tratamiento que se le 


da a este ariginalisimo tema, hacen 

w J 

pensar que se trata de un juego 
dirigido a los mas pequenos* aunque 
las instrucciones no dicen nada al 
respecto. Lejos de ensombrecer la 
valoracion del programa, este detalle 
contribuve a que nuestra cntica sea 
mucho mas positiva, Ya era hora de 
que alguien se acordara de aquellos 
que tod avia no tienen edad para 
convertirse en unos <docos del 
joystick*. No obstante, como no 
queremos que nadie se enfade con 
nosotros por no hacer la advertencia. 
recomendamos este programa a los 
que todavia estdn «poco curtidos», 
independientemente de la edad. 


★★★★★★★★★★★★★★★★★★★★★★★a 


SPINDIZZY 

En un complicado laberinto 
tridimensional, una especie de 
piramide invertida que gira sobre su 


eje, tiene que recorrer las distintas 
habitaciones que lo cornponen en 
busca de las preciadas joyas. 

La piramide puede ser convertida en 
un girosoopio o en una esfera y 
dispone de un movimiento muy real. 


dando la impresion de un autentico 
objeto con su inertia v sus rebotes. 
El objeto puede maverse en cuatro 
direcciones. ademas de la posibilidad 
de recibir un impulso en aqucllas 
pendientes de gran desnivel. 





lo 290 Pt» s 

)idos todos ci 

hogar..._ 




CUBIEP-TA 


PRECIOI 

MENOS 

17 % ^ 

USTED PAG A 


pTAStBOi 


al suscrip^T 


BOLETIN DE SUSCRIPCION 


SI, Iffivierinw INPUT SINCLAIR durante 1 aflo ( iO ejemplaies + pi efl raot dtfiano de wefaxu>>, aJ prectq especkaJ de oterta 
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TaJOn xuocnuiahvo que adjunlo a favor de ED] 5 A 


INSTRUCCIONES DE DOMICHACION BANCARLA (si es elegida por usieclj 


Recorte y envie este tupon de 
inmediato a EDfSA, Lopez de 
Hoyos, 141-28002 Madrid, o bren 
ifamenos al Telf. (91)415 97 12 


Muy scrtoccs mto* 

bes ruegc que COft C*tge # mi cuenta n\, — 

Editorial PL ANTTA-AGOSTINI a rvombre de 

i _l .. l . . C rir AHdWlOS _i_ 


aliendan hasLa nuevp aviso, el pjgo de los lecLbos que let presents! 


DIPECflDh j_k 


Descubra el mundo de ta informAtica, 


Aprenda a proqraitiar con facilidad 
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La aventura se inicia con 107 
unidades de tiempo que transcurren 
mas deprisa segun se eomplican las 
pantallas, de las que segun el 
casillero inicial existen 385. Si el 
objeto cae al vacfo se pierden cinco 
segundos y si se consigue una joya se 
incrementa en diez; tambien significa 
un aumento del tiempo el acceso a 
una nueva pantalla, 

A lo largo del recorrido es posible 
encontrarse con ascensores, agua. 
hielo, trampolines, claves... que 
pueden ayudar o dificultar la mision. 
Para tomar el acensor basta con 
colocarse bajo el y esperar a que 
descienda, una vez en el 
accederemos a nuevas pantallas v 
tesoros. 



u; 


DATOS GENERALES 

TITULO Spindizzy 
FABRICANTE Electric Dreams 
ORDENADOR Spectrum 48K 

TENIA DEL PROGRAMA 

Laberinto tridimensional 





CALIFICACION (Sabre 10 ptos.) 

OftlGlNALIDAD 

7 

INTERES 

7 

GRAFICOS 

kit *4 1 

COLOR 

6 

S0NID0 

-“] 4 

TOTAL 

jw 


En aquellas pendientes de alto 
porcentaje es convenient^ tomar 
impulso y utilizai ta tecla 
correspondiente de salto. 

Cada pantalla puede ser vista desde 
cuatro angulos distintos y para saber 
en todo memento la situaeion* una 


flecha situada en el margen inferior 
derecho siempre indicara el Norte. 
Mediante una tecla es posible 
visionar el mapa complete con todas 
las pantallas, quedando totalmente 
blancas aquellas por las que se ha 
pasado, Por su parte el juego incluye 
un grafico a todo color y con todos 
los detalles de una seccion del 
laberinto que proporeiona una ayuda 
inicial para el desarrollo del juego; 
en total muestra las nueve primeras 



pantallas y tres de los pasillos de 
acceso. 

El programs ha sido realizado por 
Electric Dreams y nuestro consejo es 
que actueis con rapidez, ya que son 
muchas las salas a visitar y no hay 
mucho tiempo. 


★ ★★★★★★★★★ ★★★★★★★ 


LA SENDA DEL TIGRE 


The way of the Tiger es, sin duda, lo 
mejor y mas completo que se ha 
hecho hasta el momento sobre el 
tema de las artes marciales. 

El programa es uno de los mas 
extensos qeu hemos tenido 
oportunidad de ver. Cosnta de tres 
partes, grabadas por separado en dos 
cassettes. La primera de ellas. 
corresponde a la disciplina del 
combate sin armas; la segunda. al 
combate con palos; y la tercera, a la 
lucha con espadas samurai. 

Antes de inieiar el juego, se puede 
escoger entre varias opciones de 
entrenamiento, en las que el 
oponente nos lo pondr$ muy facil 
para ganar. La gran cantidad de 
goipes, saltos y fintas que permite 
realizar este programa. hace que sea 


absolutamentc imprescindible un 
severo entrenamiento previo al 
combate. Por otro lado, el nivel de 
dificultad es bastante alto, y aumenta 
a medida que nos vamos 
aproximando al objetivo. 

El repertorio grafico es digno de un 
«diez» en nuestro cuaderno de de 



DATOS GENERALES 
T1TUL0 The way of the Tiger 
FABRICANTE Gremlin Graphics 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Artes marciales 



CALIFICACION 


(Sobre 10 ptos.) 




OfttGINAUDAD 

INTERES 

GRAFICOS 

COLOR 

S0NID0 


7 

9 

10 

7 


... 


TOTAL 


40 


INPUT 61 













































calificaciones, tanto por su 
abundanda como por su caiidad 
tecnica, Se ha llegado a tal grado de 
sofisticacibn, que incluso hay 
personajes que, sin parficipar en el 
juego, aparecen de vez en cuando 
para dar mayor realismo al 
escenaria. 

Teniendo en cuenta ia limitada 
eapacidad de memoria del Spectrum, 
los autores han optado por dividir el 
juego en varias partes cada una de 
ellas del tamaho de un programa de 
48K, que se van cargando desde 
cinta sucesivamente, de forma que 
nunca haya mas de una en la 



memoria (pues mas no cabrian). 

La principal innovacion de este 
programa. es la incorporacidn de un 
magnffico efecto de perspectiva 


mdvil, que permite desplazar la 
position relativa del espectador con 
respecto a la imagen, como si de una 
pelicula se tratase, 

Realmente, a I juego no le falta 
detalle. El unico inconveniente es el 
preeio, pero considerando que son 
dos cassettes, y un programa que en 
realidad es como si fueran tres, hay 
que reconocer que merece la pena. 
The way of the Tiger es uno de los 
mejores programas que puedes 
encontrar cn este memento en 
cualquier tienda de soft , y 
posiblemente el mejor, Te lo 
recomendamos. 


★★★★***★*★*★*****★*★******** 


BOUNDER 

Bounder es uno de los programas 
mas originales que hemos tenido 
oportunidad de probar. 

Una pelota de tenis recorre la ciudad 
botando de un sitio para otro, 
corriendo el peiigro de caer sobre 
cristales, estrellarse contra muros, o 
ser picoteada por a [gun pajaro, Tu 







DATOS GENERALES 

■ ■lllijiMaJHIiliiilBilrMhlMIIIIII 111! 

T1TUL0 Bounder 
FABRICANTE Gremlin Graphics 

CLASE DE PROGRAMA 

Juego 

FORMATO Cassette 







CALIFECACION (Sobre 10 ptos.) 

ORIGINAL) DAD 10 

INTERES 9 

GRAFICOS 10 

COLOR 9 

SONIDO 10 


TOTAL 


48 


— 


— 




hace la pelota. y no hay eortes entre 
pantallas, excepto cuando se pasa de 
un nivel a otro. El despiazamiento 
grafico esta muy bien conseguido, y 
el grade de in teres del programa es 
alto, entre otras razones por la 
original id ad de su tern a. 

Al principio cuesta mucho caicular 
correctamente las distancias y 
esquivar los obstaculos, pero en 
euanto se adquiere un poco de 



mision consiste en llevarla sana y 
salva hasta el final, atravesando una 
serie de fases sucesivas en creciente 
grado de dificultad, 

Cuando juegues por primera vez, 
descubriras que caer sobre todo 
aquello que no sea una losa 
hexagonal, te cuesta una de las seis 
vidas con las que se eomienza cada 
juego, Pero hay dos excepciones a 
esta regia: los recuadros que 
contienen una flecha, y los que 
aparecen con un signo de 
interrogation, Los primeros. 


permiten a la pelota de tenis dar un 
salto el doble de largo, es decir, 
permanecer dos veces m£s tiempo en 
el aire, y son muy utiles para 
esquivar grandes obstaculos. Los 
segundos, guardan bonificaciones en 
puntos. o en vidas, que unas veces 
son buenas y otras regulates. 

El piano de la ciudad en que 
transcurre la action aparece visto 
desde arriba, y la pelota se aproxima 
al espectador cada vez que asciende 
en uno de su$ botes. El escenario 
avanza en scroll a medida que lo 


practica estos problemas 
desapareceran y se descubre que el 
nivel de dificultad no es tan alto 
como parece. 

Creemos que este programa merece 
una valoracion muy positiva, Reune 
las dos condiciones esenciales que 
debeis exigir a todo juego que se os 
ponga por deiante: es muy original, y 
es muy entretenido. Naturalmente, 
se puede pedir mas. pero nunca 
conformarse con menos. 

************ 


62 INPUT 




























































ROCK Y LUCHA 


Hasta el memento han aparecido en 
el mercado una gran cantidad de 
programas de combate personal. 
Primero fueron los de boxeo, que 
cayeron como un autentico bombazo 
con el aval del exito en las maquinas 
tragaperras; de spues, los de artes 
marciates, entre los que no podemos 
dejar de destacar al Exploding Fist, y 
parece ser que ahora le ha tocado el 
turno a la «Lucha Libre». 

Rock‘n Lucha (o Rock £ n Wrestle), 
incoprora al modelo tradidonai de 
los programas de artes maricales la 
«tercera dimension^ 



Los personajes, que lueen los tfpicos 
atuendos de este espectdculo con 
todo lujo de detalles (incluso hay un 
mortffero «punkie»), discurren por el 
ring en cualquiera de las cuatro 
direcciones, y pueden estar de 
{rente, de perfil o de espaldas al 
espectador, Desgradadamente, la 
calidad de los graficos deja mucho 
que desear, y el uso de los sprites es 
bastante parco. El efecto de 


tridimensionalidad y el tamano de los 
personajes (que son de una altura 
aproximada de un tercio con relacion 


DATOS GENERALES 

TITULO Rock'n Wrestle 


FABRICANTE Melbourne House 


ORDENADOR Spectrum 48K 


TEMA DEL PROGRAMA 


Lucha Libre 




CALIF)CACION (Sobre 10 ptos.) 

ORIGINALIDAD 

9 

INTERES 

7 

GRAFICOS 

0 

COLOR 

4 

SONIDO 

■iviirvitilitliiifeliiiiiPiiBniiiiiitiiiiflii 

4 

mu 

TOTAL 

30 


a la pantalla), parecen haber 
obligado a los autores a sacrificar la 
nitidez y la definiddn de las figuras. 
Tampoco el movimiento esta 
conseguido, y cuando los 
contendientes estan muy juntos, es 
tnuy diffcil apreciar lo que estan 
haciendo, ya que los graficos se 
superponen de una forma algo tosca. 
Pero a pesar de todo ello, el 
programa es muv entretenido y no le 


faltan detalles para haeer las delicias 
de los aficionados a los combates 
personates. Existen mas de veinte 
movimientos distintos, cada uno de 
ellos adecuado a una situacion 
concreta, y cuatro mortiferos 
enemigos en credente grado de 
peligrosidad a los que tendras que 
derrotar. El heroe es un fornido 
atleta Ham ado Georgeous Greg, que 
a veces te costara distinguir de sus 
oponentes pues solo la cabeza te 
diferencia de ellos. 

Lo mas interesante del juego, es la 
posibilidad de participar dos 
jugadores sin necesidad de emplear 
el joystick y utilizando cada uno un 
sector del ted ado. Un buen sistema 



para practical es elegir la opcidn 
para dos jugadores y mane jar uno 
solo de los personajes, dejando asi a 
nuestro oponente indefenso. 

En definitiva, se trata de un buen 
programa, aunque realizado con 
□nos recursos tecnicos pobres. 
Estamos seguros de que aquellos que 
no sean muy exigentes con la calidad 
de los graficos, podran pasar muy 
buenos ratos con el. 


GANADORES DE LOS MEJORES DE INPUT SINCLAIR 

En el sorteo correspondiente al numero 10 entre quienes escribisteis mandando vuestros votos a LOS 
MEJORES DE INPUT ban resuftado ganadores: 

NOMBRE 

LOCALIDAD 

JUEGO ELEGtOO 

Angel Petra Esteban 

Hospitalet (Barcelona) 

Commando 

Jos£ Sanchez Uzcano 

Coslada (Madrid) 

Phantomas 2 

David Hernandez Ciurana 

Premia de Dalt (Barcelona) 

Movie 

Carlos Weira Cortizas 

Barallobre-Fene (La Coruna) 

Movie 

Antonia Fernandez Lopez 

Coslada (Madrid) 

The way of the tiger 

J. Alberto Serrano Mayo 

Llodlo (Alava) 

Commando 

Diego Serrano Gonzalez 

Malaga 

Gunfiight 

Diego Miguel Callejon Ros 

Melilla 

Ciberum 

A. Ramon Arteaga Herrera 

Gomera (S. C. de Tenerife) 

Sky fox 

Sonsoles Rodriguez Presencio 

Madrid 

World cup Carnival 


INPUT 63 









































PENTAGRAM 




DATOS GENERALES 


iiiulu pentagram 


FABR1CANTE Ultimate 


ORDENADOR Spectrum 48K 


TEMA DEL PROGRAMA 


Aventura misteriosa 




CAUFIGACION (Sobre lOptos.) 

f H 1 I I I....I I • fe-fel ■ ■ > i 

ORIGINALIDAD 

~ 4 

INURES 

7 

GRAFICOS 

10 

COLOR 

5 

SONIOQ 

* 

k 

TOTAL 

33 


La reciente aparicion de la segunda 
parte del Sabre Wulf, ha desperlado 
una fuerte expectation entre los 
viejos aficionados a la 
microinformatica, que tanto 
disfrutamos con las prim eras 
produccioncs de Ultimate. Desde el 
nacimiento, hace ya mas de tres 
ahos, del famoso AtioAtac, esta 
prestigiosa firma no ha dejado de 


sorprendernos eon grandes exitos 
como e! Underwulde, el Knight Lore, 

o el Alien 8- Sin embargo, en los 
ultimos meses han aparecido titulos 
en los que se ha seguido abusando 
hasta la saciedad de un sistema que, 
en su memento, fuc una bomba, 
pero que ahora esta ya «muy 
visto». 

Nos estamos refiriendo al efecto 


Filmation. que este programa, al 
igual que el Knight Sade y el 
Gunfright, utiiiza una vez mas. 

A pesar de ello, no le faltan al juego 
detalles que aportan cierta novedad, 
como los fantasmas, zombies, aranas 
v brujas que se materializan ante 
Sahreman euando permanece 
demasiado tiempo en una habitacion, 
El tema del programa ha sido 
rodeado de misterio tanto en su 
presentacidn como en las 
instrucriones, Se nos revela la forma 
de desplazar al heroe, pero no se nos 
dice que es lo debemos hacer ni cual 
es nuestra mision. Lo unieo que 
sabemos es que debemos encontrar 
un misterioso pentagrams. Incluso en 
la publicidad que del programa se ha 
hecho no se dice mas que lo 
siguiente: «E1 juego sorpresa de 
Ultimate que debes descubrir tu 
mismo», 

El tratamiento grafico, el 
movimiento y el efecto de 
tridimensionalidad son magistrates, 
pero no aportan nada nuevo con 
relacion a los programas anterior es 
de esta misma firma. 

For lo demas, el programa es muy 
interesante, aunque aburrira a 
aquellos que ya conozcan a fondo los 
tftulos precedentes, 

Espercmos que Ultimate abandone 
este habito nefasto pronto, porque 
de lo contrario, euando por fin hagan 
algo distinto nadte se lo va a 
creer. 


LA CUEVA DE LOS ENIGMAS 


Riddler 4 s Den o La Cueva de los 
Enigmas, es un juego de ogras, 
duendes y dragones, con el que 
hemos pasado un rate estupendo 
mientras lo probabamos. 

Su protagonist a es Trunkie, un 
simpatico horn bre-etef ante, a la 
busqueda de un tesoro que le 
permita financiar su proxima 
aventura. La accion transcurre en el 
interior de una cueva, habitada por 
personajes que parecen salidos de las 
paginas de un cuento de Ende. En su 


camino, Trunkie se encuentra con 
multitud de objetos que puede 
recoger, y que le seran de mucha 
ayuda. Algunos pueden ser utilizados 
para defenderse de los guardianes 
del tesoro, otros para abrir puertas, 
cruzar rios, o encontrar la salida, El 
nivel de dificultad no es 
excesivamente alto, y se puede 
permanecer un largo rato en juego 
incluso en la primera partida, pues 
no hay en ningun memento 
situaciones agobiantes, y la mayorfa 


de los enemigos tienen una actitud 
pasiva, 

Como dato a destacar, senalaremos 
algo que no suele ser habitual y que 
casi siempre tenemos que echar de 
menos en la mayorfa de los 
programas: las instrucciones son 
claras y concisas, dan multitud de 
pequerias pistas sobre los medios 
para conseguir el objetivo, y en vez 
de contar largas e inutiles historias 
para hacer ambiente describen con 
detalle todo lo que puede 


64 INPUT 
























interesar al usuario para jugar 
comodamente desde la primera 
partida. 

En cuanto a la calidad grafica del 
juego, tambien debemos hacer una 
valoracion positiva. Aunque el 
repertorio no es muy deslum bra nte. 
el color, el movimiento y la 
originalidad aportan lo suficiente 
como para que nadie se sienta 
decepcionado. 

No obstante, e! planteamiento 
general nos recuerda un poco al 
Sabre-Wulf, aunque se trata dc dos 
juegos completamente diferentes. La 
verdad es que a estas alturas, es 
practicamente imposible encontrar 
un programa que no tenga parecido 
alguno eon los demas. 

For otra parte, el interes del 
programa se mantiene a lo largo de 
tantas partidas como se quiera jugar, 
entre otras razones porque no se 
trata de un juego en el que solo haya 
accion. sino que tambien hay una 
fuerte dosis de estrategia. Con 


RiddleCs Den, estaras mas ocupado 
descifrando enigmas y haciendo 
deducciones que esquivando 

DATOS GENERALES 

... 

TITIILO Riddler's Den 
FABRICANTE Electrics Dreams 
ORDENADOR Spectrum 48K 


monstruos, y esto. al menos desde 
nuestro pun to de vista, siempre es 
deseable. 


TENIA DEL PROGRAMA 

En busca del tesoro 



CALIFICACION (Sobre 10 ptos.) 

ORIGINALIDAD 

7 

INTERES 

8 

GRAFICOS 

7 

COLOR 

7 

SONIDO 

6 

TOTAL 

35 | 








LA MASCARA 


I, of the Mask es un originalfsimo 
programa de impresionantes graficos 
tridimensionales, que no se parece ni 
remotamente a nada de lo que 
hemos visto hasta ahora* 

La accion transcurre en un inmenso 
labor into situado en el interior de 
una mascara, en el que tendras que 
probar tu habilidad como piloto v 
estratega en una arriesgada mistdn: 
recuperar »en el orden cor recto las 
distint as partes de un robot, perdidas 



en !a Lnmensidad de los treinta y dos 
uni versos del plane ta Newgama IIL 
Cada universe tiene tres cristales en 
su entrada, Uno de elios te 
transports a otro universe; el 
siguiente, a otra zona del laberinto; y 
el tercero, te permitira acceder a una 
de las piezas del robot, Una vez que 
hayas encontrado la pieza que 
necesites, deberas bombardearla tres 
veces para poder recogerla sin 
dariarla, Cuando logres obtener la 



DATOS GENERALES 

■ ■•I.. 

TfTULO I, of the Mask 
FABRICANTE Electrics Dreams 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Laberinto 



CALIFICACION (Sobm 10 ptos.) 1 

ORIGINALIDAD 

8 

INTERES 

6 

GRAFICOS 

8 

COLOR 

8 

SONIDO 

................. d a m~m m . ...... 

3 


33 


ultima de las piezas (la cabeza), 
habras ganado cl juego, 

Como hemos dicho antes, las 
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distintas partes del robot ban de ser 
eonseguidas en el orden correcto, 
pues de lo eontrario tus esfuerzos 
seran inuttles* En la parte inferior de 
la pantalla, aparecera un esquema en 
el que podras apreeiar cuales son las 
partes que te interesan en eada 
momento, teniendo en cuenta que 
hay que empezar por los pies y 
terminar por la cabeza. 

I, of the Mask presenta una curiosa 


disociacion entre la calidad de los 
graficos y ei interes del tema. Suele 
ser bastante freeuente que nos 
encontremos con programas muy 
interesantes que apagan la brillantez 
de su tema con un tratam lento 
grafico pobre. Pues bien t en este 
caso ocurre lodo lo eontrario: los 
graficos son inmejorabfes y muy 
originates, pero el tema es 
insulso* 


Para terminar, diremos que I, of the 
Mask puede considerarse como una 
propuesta para abrir nuevos caminos 
y crear nuevos modelos en un 
repertorio de soft que ya empieza a 
repetirse demasiado. 

En si mismo, este programa es de 
una calidad tecnica excelente, y lo 
recomersdamos sin reservas a los 
am antes de los grandes efectos 
graficos. 




JIM, EL GRUMETE 


Entre los muchos titulos que la firma 
Firebird ha lanzado al mercado en 
los ultimos meses, se encuentra 
Booty (Botin), un arcade de 
planteamiento sencillo, realizado con 
una gran economia de medios. 

Su protagonista es un pequeho 
personaje 11amado Jim, enrolado 


oro, otra de plata y una tercera de 
bronce, 

Como en todo juego de aventuras, 
habra que tener especial cuidado con 
los innumerables peligros que se 
ocultan acechantes en todos los 
rincones. En este caso se trata de 
ratas asesinas, fantasmas piratas, y 



DATOS GENERALES 

. ... 

TITULO Booty 
FABRICANTE Firebird 
ORDENADOR Spectrum 43K 

TEMA DEL PROGRAMA 

Buscando tesoros 


CALIFICACION isobre 1 D ptOS j 

f PPiri I CI t1 1I■ ■ 9 < ■ ■■ ■■■■ I ■ ■ ■ ■ ■ I ■ ■ I HIflllff H II I 

ORIGINALIDAD 3 

INTERES 6 

GRAFICOS 6 

COLOR 6 

SONIDO 3 

. ...... 

TOTAL 24 



como gmmete en ei misterioso 
Gakon Negro, con la mision de 
encontrar las distintas partes de los 
fres fabulosos botines, que se hallan 
ocultos en las bodegas del bareo, 
Una vez reunido uno de los botines, 
es necesario conseguir la Have 
correspondiente, que permita el 
acceso a la busqueda del siguiente 
hotfn. Existen tres Haves: una do 


todo tipo de trampas, amen de otros 
obstaculos no menos peligrosos que 
no vamos a describir para no restar 
interes al juego. 

Desde el punto de vista tecnico, se 
trata de un programa bastante 
modesto, con unos recursos graficos 
muy limitados y un planteamiento 
general muy en la tinea tradicionaL 
El grado dc interes. no obstante, es 


aceptable, y el movimiento no deja 
nada que desear, 

Segun reza el reclamo de la caratula, 
el juego consta de 150 bodegas ? pero 
no sabemos si se refiere al niimero 
de pantalias o a los niveles que 
aparecen en cada una de ellas. 

En definitiva, Booty es un programa 
interesante, aunque no aporte 
innovation es. 
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Equ/po SV 7 -E 

* Dfrren^Tnes 440 * 3fflx365. 

* Pkito grzd'EQOG, 

* Amp v c on pdtaftc& cie 

safofc 2 x TO W 

* Receptor coo seiectivkhd FM 

de40d& 

* Dohlep-- ru ce aits s'ebddad 

* £a\asad&k3& 

* Muebfe especial. 


Escuchalo. 

La calidad de SVI-E es un desafio 
a los grande? de la Alta Fidelidad. 

Porque tu eqvipo SVI-E tambien es 
grande en son ido pero pequeno en 


Cuando ertsenes a tus co/egas tu 
nuevo HI-FI SVI-E -el tuyo para ti. 
(■comprendes?- no les digas elprecio 
Y que escuchen. 

Porque realmente SVI-E suena caro... 
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torero* 


^ ace 


Manuel 

Becerra 


TODOS LOS JUEGOS DEL CATALOGO DE SERNA 
ESTARAN TAMBIEN A LA VENTA EN: Kionaml 
LOS TITULOS EDITADOS POR llOonami PARA 


Rogamos a todos los usuarios de Spectrum, CM 64, Amstrad y MSX que nos escriban 
a SERMA sugiriendo ideas para tiacerlas realidad en nuestra tienda 


SPECTRUM, CM 64, AMSTRAD Y MSX SON: 
FABRICADOS Y DtSTRIBUIDOS EN EXCLUSIVA 
POR SERMA. ^ 

















